subroutine cll2xy(stcprm, alat, along, x, y )
      real stcprm(15)
      real geog(3),temp(3)
      call ll_geo(alat,along, geog)
      call basg2m(stcprm, geog, temp)
      call map_xy(stcprm, temp, x,y)
      return
      end