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*									*
C*  Note that, for this decoder, an additional REAL*8 array is needed	*
C*  to hold the SCCF and SCBW values, which are too large to fit within	*
C*  32 bits (= the default size for a REAL on most machines).		*
C************************************************************************
	PARAMETER 	( NRSIMN = 20 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER 	( NRIMN = 144 )
C*					Number of real interface
C*					mnemonics
C*
	PARAMETER 	( NR8IMN = 2 )
C*					Number of real*8 interface
C*					mnemonics
C*
	COMMON	/ RINTFP /
     +     irsaid  , irgctr  , irsclf  , irssnx  , irssny  , irsaza  ,
     +	   iryear  , irmnth  , irdays  , irhour  , irminu  , irseco  ,
     +     irslat  , irslon  , irsidp  , irswcm  ,
     +     irpres  , irdrct  , irsped  , irccst  ,
     +     irpccfgc(3), irpccfga(3), irpccfpr(3),
     +	   irpccfdr(3), irpccfsp(3), irpccfct(3),
     +     irmaqcgc(3), irmaqcga(3), irmaqcpr(3),
     +	   irmaqcdr(3), irmaqcsp(3), irmaqcct(3),
     +     irncthgc(3), irncthga(3), irncthpr(3),
     +	   irncthdr(3), irncthsp(3), irncthct(3),
     +     irfttsig(4), irfthour(4), irftminu(4),  irftseco(4),
     +     irsdtsig(4), irsdhour(4), irsdminu(4),  irsdseco(4),
     +     irsdwdir(4), irsdwspd(4),
     +     irshamd(10), irsprlc(10), irstmdbst(10),  
     +	   irsccf  , irscbw
C*					Pointers to relative locations of
C*					interface mnemonics within
C*					rimnem ( ) and r8mnem ( ).
C*					These pointers will be set by
C*					EL_IFSP and then used as indices
C*					into the real interface values
C*					arrays rivals ( ) and r8vals ( ).
C*
	REAL		rivals ( NRIMN )
C*
	REAL*8		r8vals ( NR8IMN )
C*
	COMMON	/ RINTFV /	rivals, r8vals
C*					Real and real*8 interface values