PARAMETER	( MXSTNS = 200000 )
C*					Maximum number of stations
C*					in a Mesonet data file
C*
	PARAMETER	( NVAR = 46 )
C*					Number of Mesonet variables
C*					to retrieve for each station
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************************************************************************
	PARAMETER	( MXPCP = 3 )
C*					Maximum number of periods of
C*					accumulated precipitation.
C*
	PARAMETER	(     MPM1 = ( MXPCP - 1 ),
     +			    MPM1T5 = ( MPM1 * 5 )	)
C*
C*
        PARAMETER       ( MXSOL = 5 )
C*                                      Maximum number of soil levels.
C*
        PARAMETER       (    MSLM1 = ( MXSOL - 1 ),
     +                      MLM1T7 = ( MSLM1 * 7 )      )
C*
	PARAMETER 	( NRSIMN = 29 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER	( NRIMN = NRSIMN + ( MXPCP * 5 ) +
     +					( MXSOL * 7 ) * 3 + 4 )
C*					Number of real interface
C*					mnemonics
	COMMON	/ RINTFP /
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , 
     +	   irslat  , irslon  , irselv  , irpltp  , irgudr  , irgums  , 
     +	   irtmpk  , irtmpkqa, irtmpkqr, irrelh  , irrelhqa, irrelhqr,
     +	   irdrct  , irdrctqa, irdrctqr, irsped  , irspedqa, irspedqr,
     +	   irrpcp  , irrpcpqa, irrpcpqr, irsrdf  , irsrdfqa, irsrdfqr,
     +	   irnpcp  , irtpmi( MXPCP ), irtphr( MXPCP ), irtpcp( MXPCP ),
     +		     irtpcpqa ( MXPCP ), irtpcpqr ( MXPCP ),
     +     irnsol1 , irslin1  ( MXSOL ),
     +               irsolm1  ( MXSOL ),
     +               irsolmqa1( MXSOL ), irsolmqr1( MXSOL ),
     +               irsolt1  ( MXSOL ),
     +               irsoltqa1( MXSOL ), irsoltqr1( MXSOL ),
     +     irnsol2 , irslin2  ( MXSOL ),
     +               irsolm2  ( MXSOL ),
     +               irsolmqa2( MXSOL ), irsolmqr2( MXSOL ),
     +               irsolt2  ( MXSOL ),
     +               irsoltqa2( MXSOL ), irsoltqr2( MXSOL ),
     +     irnsol3 , irslin3  ( MXSOL ),
     +               irsolm3  ( MXSOL ),
     +               irsolmqa3( MXSOL ), irsolmqr3( MXSOL ),
     +               irsolt3  ( MXSOL ),
     +               irsoltqa3( MXSOL ), irsoltqr3( MXSOL )
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem ( ).  These pointers will
C*					be set by MN_IFSP and then used as
C*					indices into the real interface
C*					values array rivals ( ).
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	rivals
C*					Real interface values 
C*
	PARAMETER 	( NCIMN = 8 + MXPCP + 6 * MXSOL )
C*					Number of character interface
C*					mnemonics
C*
	COMMON	/ CINTFP /
     +	   icstid  , icprvid , 
     +	   ictmpkqd, icrelhqd, icdrctqd, icspedqd,
     +	   icrpcpqd, icsrdfqd, ictpcpqd ( MXPCP ),
     +     icsolmqd1( MXSOL ), icsoltqd1( MXSOL ),
     +     icsolmqd2( MXSOL ), icsoltqd2( MXSOL ),
     +     icsolmqd3( MXSOL ), icsoltqd3( MXSOL )
C*					Pointers to relative locations of
C*					character interface mnemonics within
C*					cimnem ( ).  These pointers will be
C*					set by MN_IFSP and then used as
C*					indices into the character
C*					interface values array civals ( ) 
C*
	CHARACTER	civals ( NCIMN )*11
C*
	COMMON	/ CINTFV /	civals
C*					Character interface values