PARAMETER       ( MXRECL = 400 )
C*					Maximum length of a USGS input
C*					file record (in characters)
C*
	PARAMETER	( MXFLDS = 30 )
C*					Maximum number of fields that
C*					can be read from a USGS input
C*					file record
C*
	PARAMETER	( MXFLDSP3 = MXFLDS + 3 )
C*
	PARAMETER	( NDPRM = 13 )
C*					Number of data parameters to
C*					search for within a USGS input
C*					file record
C
C************************************************************************
C*  / BLOCK5 /								*
C*									*
C*  This common area contains the station information.			*
C************************************************************************
        COMMON /BLOCK5/  jstnm,  stnid,  elev,  ylat,  ylong, tmzone
C 
        INTEGER         MTBLSZ, jstnm
        PARAMETER       ( MTBLSZ = 750 )
C*					Maximum number of stations
C
        REAL            ylat(MTBLSZ), ylong(MTBLSZ), elev(MTBLSZ)
C
        CHARACTER*16     stnid(MTBLSZ)
	CHARACTER*10	tmzone(MTBLSZ)
C
C************************************************************************
C*  / LOGMSG /								*
C*									*
C*  This common area contains a string used to hold messages that are	*
C*  to be written to the decoder log.					*
C************************************************************************
	CHARACTER	logmsg*200
C*
	COMMON	/ LOGMSG /	logmsg
C*					String to hold a message to be
C*					written to decoder log
C*
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
C*
        PARAMETER       ( MXWND = 2 )
C*                                      Maximum number of layers of
C*                                      wind data
C*
        PARAMETER       (   MWM1 = ( MXWND - 1 ),
     +                    MWM1T4 = ( MWM1 * 4 )   )
C*
        PARAMETER       ( MXRSH = 2 )
C*                                      Maximum number of layers of
C*                                      river stage height data
C*
        PARAMETER       (   MRM1 = ( MXRSH - 1 ),
     +                    MRM1T2 = ( MRM1 * 2 )   )
C*
        PARAMETER       ( MXDCH = 2 )
C*                                      Maximum number of layers of
C*                                      discharge data
C*
        PARAMETER       (   MDM1 = ( MXDCH - 1 ),
     +                    MDM1T2 = ( MDM1 * 2 )   )
C*
        PARAMETER       ( MXPCP = 2 )
C*                                      Maximum number of layers of
C*                                      precip data
C*
        PARAMETER       (   MPM1 = ( MXPCP - 1 ),
     +                    MPM1T2 = ( MPM1 * 2 )   )
C*
	PARAMETER 	( NRSLMN = 16 )
C*					Number of real single-level interface
C*					mnemonics
C*
        PARAMETER       ( NRIMN = (4 * MXWND) + (2 * MXRSH) +
     +                            (2 * MXDCH) + (2 * MXPCP) +
     +                            NRSLMN + 4 )

C*                                      Total number of real interface
C*                                      mnemnonics ( total number of
C*                                      mult-layer data + single-level
C*                                      data + total number of counters
C*                                      for multi-layer data).
	COMMON	/ RINTFP /
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , 
     +	   irslat  , irslon  , irselv  , irwtmp  , irtmpc  ,
     +     irtmpf  , irgust  , irstrv  , irrsh9  , irsaln  ,
     +	   irwacn
C*
        COMMON  / RINTFP /
     +          irnwnd  , irwdir ( MXWND ) , irwspd ( MXWND ) ,
     +                    irddwd ( MXWND ) , irddws ( MXWND ) ,
     +          irnrsh  , irrshm ( MXRSH ) , irddrs ( MXRSH ) ,  
     +          irndch  , irdchg ( MXDCH ) , irdddc ( MXDCH ) ,
     +          irnpcp  , irprec ( MXPCP ) , irddpc ( MXPCP )  
 
C*					Pointers to relative locations of
C*					interface mnemonics within
C*					rimnem ( ).
C*					These pointers will be set by
C*					UG_IFSP and then used as indices
C*					into the real interface values
C*					array rivals.
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	rivals
C*					Real*4 interface values 
C*
        PARAMETER       ( NCIMN = 2 )
C*                                      Number of character interface
C*                                      mnemonics
C*
        COMMON  / CINTFP / icstid, icagcy
C*                                      Pointers to relative locations of
C*                                      character interface mnemonics
C*                                      within cimnem( ).  These
C*                                      pointers will be set by UG_IFSP
C*                                      and then used as indices into the
C*                                      character interface values array
C*                                      civals( ).
C*
        CHARACTER       civals ( NCIMN )*16
C*
        COMMON  / CINTFV /      civals
C*                                      Character interface values
*