PARAMETER	( MXLENF = 15 )
C*					Maximum length of a field
C*					(i.e. group) that can be read
C*					using UA_GFLD
C*
	PARAMETER	( MNGDEC = 5, MXGDEC = 7 )
C*					Lower and upper length limits which 
C*					a field (i.e. group) that is read
C*					using UA_GFLD must satisfy in order
C*					for it to be decoded
C*
	PARAMETER	( MXSKIP = 10 )
C*					Maximum number of unrecognizable
C*					groups to skip over when scanning
C*					a report during error recovery
C*
	PARAMETER	( MXPBHT = 17500 )
C*					Maximum allowable height (in meters)
C*					for a significant level within a
C*					pilot BB report
C*
	PARAMETER	( MNPDHT = 14500 )
C*					Minimum allowable height (in meters)
C*					for a significant level within a
C*					pilot DD report
C*
	PARAMETER	( RMXPRS = 1200. )
C*					Maximum pressure value (in mb)
C*					for a decoded level
C*
	PARAMETER	( GPGRAV = 9.8 )
C*					Acceleration due to gravity
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
C************************************************************************
C*  / TYPES /								*
C*									*
C*  This common area contains type information about a report.		*
C************************************************************************
	CHARACTER	AA*2, BB*2, CC*2, DD*2, prttyp*2,
     +			LAND*5, SHIP*5, MOBIL*5, DROP*5, stntyp*5,
     +			TEMP*5, PILOT*5, cftyp*5
C*
	PARAMETER	( AA = 'AA', BB = 'BB', CC = 'CC', DD = 'DD',
     +			  LAND  = 'LAND ', SHIP  = 'SHIP ',
     +			  MOBIL = 'MOBIL', DROP  = 'DROP ', 
     +			  TEMP  = 'TEMP ', PILOT = 'PILOT' )
C*
	COMMON	/ TYPES /	prttyp,
C*					Part type
     +				stntyp,
C*					Station type
     +				cftyp
C*					Code form type
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*  / IDFLAG /								*
C*									*
C*  This common area contains the Id wind level flag for temp AA and	*
C*  temp CC reports.							*
C************************************************************************
	CHARACTER	idflag
C*
	COMMON	/ IDFLAG /	idflag
C*					Id wind level flag
C*
C************************************************************************
C*  / REGPID /								*
C*									*
C*  This common area contains the regional practice indicators.		*
C*									*
C************************************************************************
	PARAMETER	( NRPIDS = 8 )
C*
	CHARACTER	rpids ( NRPIDS )*5
C*
	INTEGER		lrpids ( NRPIDS )
C*
	COMMON	/ REGPID  /	rpids,
C*					Regional practice indicators.
     +				lrpids
C*					Lengths of regional practice
C*					indicators.
C*
C************************************************************************
C*  / NATPID /								*
C*									*
C*  This common area contains the national practice indicators.		*
C*									*
C************************************************************************
	PARAMETER	( NNPIDS = 8 )
C*
	CHARACTER	npids ( NNPIDS )*5
C*
	INTEGER		lnpids ( NNPIDS )
C*
	COMMON	/ NATPID  /	npids,
C*					National practice indicators.
     +				lnpids
C*					Lengths of national practice
C*					indicators.
C*
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
	PARAMETER	( MXNLEV = 300 )
C*					Maximum number of levels of
C*					multi-level data
C*
	PARAMETER	( MLM1T9 = ( ( MXNLEV - 1 ) * 9 ) )
C*
C*
	PARAMETER	( MXNCLT = 3 )
C*					Maximum number of cloud types
C*
	PARAMETER	( MCM1 = ( MXNCLT - 1 ) )
C*
C*
	PARAMETER	( MXNRDC = 25 )
C*					Maximum number of report
C*					diagnostic codes
C*
	PARAMETER	( MRM1 = ( MXNRDC - 1 ) )
C*
C*
	PARAMETER	( NRSIMN = 29 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER	( NRIMN = ( MXNLEV * 9 ) + MXNRDC +
     +					    MXNCLT + NRSIMN + 3 )
C*					Number of real interface
C*					mnemonics
C*
	COMMON	/ RINTFP /
     +	   irstnm  , irslat  , irslon  , irselv  , irqcvr  ,
     +	   iritpd  , iritpr  , ira4me  , irmrsq  , irwmor  ,
     +	   irlnhr  , irlnmn  , irsirc  , irttss  , irsstc  ,
     +	   iryear  , irmnth  , irdays  , irhour  ,
     +	   irmwdl  , irmwsl  , irmwdh  , irmwsh  ,
     +	   irxprs  , irxhtm  , irstb5  , irtiwm  ,
     +	   irclam  , irhblc  ,
     +	   irnclt  , ircltp ( MXNCLT ) ,
     +	   irnrdc  , irurdc ( MXNRDC ) ,
     +	   irnlev  , irvsig ( MXNLEV ) , irpres ( MXNLEV ) ,
     +		     irhgtm ( MXNLEV ) , irtmpc ( MXNLEV ) ,
     +		     irdwpc ( MXNLEV ) , irdrct ( MXNLEV ) ,
     +		     irsped ( MXNLEV ) , irawsb ( MXNLEV ) ,
     +		     irawsa ( MXNLEV )
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem ( ).  These pointers will be
C*					set by UA_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 = 3 )
C*					Number of character interface
C*					mnemonics
C*
	COMMON	/ CINTFP /
     +	   icstid  , iccoun  , icpart
C*					Pointers to relative locations of
C*					character interface mnemonics within
C*					cimnem ( ).  These pointers will be
C*					set by UA_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