integer              latg,latg2
      integer              lonf
      real(kind=kind_evod) rerth
cc
      parameter ( lonf   = 192 )
      parameter ( latg   = 94 )
      parameter ( latg2  = latg/2 )