subroutine cg2cxy(stcprm, x,y, ug,vg, ue,vn)
      parameter (sin1dg=.017452406437284)
      real stcprm(15)
      real norm
      call cpolxy(stcprm, x,y, enx,eny,enz)
      norm = sqrt(enx*enx + eny*eny)
      if (norm .le. sin1dg) then
        call cgrnxy(stcprm, x,y, enx,eny,enz)
        norm = sqrt(enx*enx + eny*eny)
      endif
      enx = enx / norm
      eny = eny / norm
C* CHANGE MADE 3/9/99 TO ALLOW UG,VG AND UE,VN TO USE SAME STORAGE
      temp = - enx * vg + eny * ug
      vn = eny * vg + enx * ug
      ue = temp
C* WITHOUT INTERFERING WITH EACH OTHER
      return
      end