subroutine cc2gll(stcprm, alat, along, ue,vn, ug,vg)
      parameter (sin1dg=.017452406437284)
      real stcprm(15)
      real norm
      call cpolll(stcprm, alat,along, enx,eny,enz)
      norm = sqrt(enx*enx + eny*eny)
      if (norm .le. SIN1DG) then
        call cgrnll(stcprm, alat,along, 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 * vn + eny * ue
      vg = eny * vn - enx * ue
      ug = temp
C* WITHOUT INTERFERING WITH OTHER
      return
      end