subroutine readxy (storxy,o,nc)
      integer nc
      real storxy(3)
      double precision o(1)
      do 10 i=1,nc
         o(i)=storxy(i)
   10    continue
      return
      end