C************************************************************************
C*  / BLOCK4 /								*
C*									*
C*  This common area contains information from the tide gauge station   *
C*  table.                                                              * 
C************************************************************************
        INTEGER  MAXSTN
        PARAMETER ( MAXSTN = 500 )
C*
        COMMON /STATBL/  nstns,  jstnid,  elev,  ylat,  ylong,  jcoun
C*
        REAL   ylat(MAXSTN),  ylong(MAXSTN),  elev(MAXSTN)
C*
        INTEGER  nstns
C*
        CHARACTER*8   jstnid(MAXSTN)
C*
        CHARACTER*4   jcoun(MAXSTN)
C*