subroutine cxy2ll(stcprm , x, y, alat, along)
      real stcprm(15)
      real map(3),geog(3)
      call xy_map(stcprm, x,y, map)
      call basm2g(stcprm, map, geog)
      call geo_ll(geog, alat,along)
      return
      end