INCLUDE		'BUFR.CMN'
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
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	( NR8IMN = 1 )
C*					Number of real*8 interface
C*					mnemonics
C*
	PARAMETER 	( NRSIMN = 19 )
C*					Number of real single-level
C*					interface mnemonics
C*
        PARAMETER       ( NRIMN = ( MXBFLV * 7 ) + NRSIMN + 1 )
C*                                      Number of real interface
C*                                      mnemonics
C*
        PARAMETER       ( MLM1TS = ( ( MXBFLV - 1 ) * 7 ) )
C*
	COMMON	/ RINTFP /
     +	   irmefr  ,
     +	   irwmob  , irwmos  , irtost  , irslat  , irslon  , irselv  ,
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , 
     +	   ira4me  , iratyp  , irbemw  , irragl  ,
     +	   irmspe  , irwice  , irtsig  , irtpmi  ,
     +	   irnlev  , irhgtm ( MXBFLV ) , irqmdr ( MXBFLV ) ,
     +		     irdrct ( MXBFLV ) , irsped ( MXBFLV ) ,
     +		     irqmwc ( MXBFLV ) , irwcmp ( MXBFLV ) ,
     +		     irstnr ( MXBFLV )
C*					Pointers to relative locations of
C*					interface mnemonics within
C*					r8mnem ( ) and rimnem ( ).
C*					These pointers will be set by
C*					EP_IFSP and then used as indices
C*					into the real interface values
C*					arrays r8vals ( ) and rivals ( ).
C*
	REAL*8          r8vals ( NR8IMN )
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	r8vals, rivals
C*					Real*8 and real interface values