PARAMETER ( MAXSTN = 10000 )
C
        REAL   ylat(MAXSTN),  ylong(MAXSTN),  elev(MAXSTN)
C 
        INTEGER     nstns
C
        CHARACTER   jstnid(MAXSTN)*4,   jcoun(MAXSTN)*4
C 
        COMMON /BLOCK1/  NSTNS,    JSTNID,  ELEV,  ylat,  ylong,
     +                   jcoun
C