PARAMETER	( MXSTNS = 2000 )
C*					Maximum number of stations
C*					in a MAP data file
C*
	PARAMETER	( MXLVLS = 202 )
C*					Maximum number of data levels
C*					per station in a MAP data file
C*
	PARAMETER	( NVARML = 9 )
C*					Number of multi-level MAP
C*					variables to retrieve for each
C*					station
C*
	PARAMETER	( NVARBL = 3 )
C*					Number of antenna beam MAP
C*					variables to retrieve for each
C*					station
C*
	PARAMETER	( NVARSL = 2 )
C*					Number of single-level MAP
C*					variables to retrieve for each
C*					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************************************************************************
C*
	PARAMETER 	(   MLM1 = ( MXLVLS - 1 ),
     +			  MLM1T3 = ( MLM1 * 3 ),
     +			  MLM1TF = ( MLM1 * 15 ) )
C*
	PARAMETER 	( NRSIMN = 13 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER	( NRIMN = ( MXLVLS * 15 ) + NRSIMN + 1 )
C*					Number of real interface
C*					mnemonics
	COMMON	/ RINTFP /
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , 
     +	   irslat  , irslon  , irselv  , iravpm  , irsttp  ,
     +	   irgsw1  , irgsw2  , irgsw3  ,
     +	   irnlvl  ,
     +	   irltyp ( MXLVLS ),
     +	   irhgtm ( MXLVLS ), 
     +	   irdrct ( MXLVLS ), irdrctqa ( MXLVLS ), irdrctqr ( MXLVLS ),
     +	   irsped ( MXLVLS ), irspedqa ( MXLVLS ), irspedqr ( MXLVLS ),
     +     irudev ( MXLVLS ), irvdev ( MXLVLS ),
     +	   irwcmp ( MXLVLS ), irwdev ( MXLVLS ),
     +	   irvtmp ( MXLVLS ), irvtmpqa ( MXLVLS ), irvtmpqr ( MXLVLS )
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem ( ).  These pointers will
C*					be set by AP_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 = ( MXLVLS * 3 ) + 2 )
C*					Number of character interface
C*					mnemonics
C*
	COMMON	/ CINTFP /
     +	   icstid  , icprvid ,
     +	   icdrctqd ( MXLVLS ), icspedqd ( MXLVLS ), icvtmpqd ( MXLVLS )
C*					Pointers to relative locations of
C*					character interface mnemonics within
C*					cimnem ( ).  These pointers will be
C*					set by AP_IFSP and then used as
C*					indices into the character
C*					interface values array civals ( ) 
C*
	CHARACTER	civals ( NCIMN )*8
C*
	COMMON	/ CINTFV /	civals
C*					Character interface values