COMMON / outrec / irtarr ( 5 ), irephr, irepmin,
     +			  rmkund, seqnum, buhd, cborg, btime, bbb,
     +			  contry, logmsg, rctim ( 6 )
C*
	CHARACTER * 1000 logmsg
	CHARACTER * 200 rmkund
	CHARACTER * 12 btime
	CHARACTER * 8 bbb, buhd, cborg
	CHARACTER * 4 seqnum, contry
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
C************************************************************************
C* Input parameters (stored in COMMON / postpr /)                       *
C*	IRTD  	INTEGER	   Error value returned from decoder            *
C*	NUM  	INTEGER	   Number of fields to be decoded               *
C*								        *
C* Input and output parameters (stored in COMMON / postpr /)            *
C*	IPTR  	INTEGER	   Pointer to current/next string array element *
C*								        *
C* Output parameters (stored in COMMON / postpr /)                      *
C*	DONLIN  LOGICAL    Flag for completed processing                *
C*	IMHERE  INTEGER	   Pointer for next decode routine to use       *
C*	IQUIT  	INTEGER	   Re-entry point in DO loop                    *
C*	ERRFLG  LOGICAL	   Master error flag for print                  *
C************************************************************************
C*
        COMMON / postpr / irtd, num, iptr, donlin, imhere, iquit, errflg
C*
        LOGICAL donlin, errflg
C*
C************************************************************************
C*  / INTF /                                                            *
C*                                                                      *
C*  This common area contains the interface arrays.                     *
C************************************************************************
	PARAMETER	( MXVISB = 2 )
C*					Maximum number of visibility    
C*					groups
	PARAMETER	( MVM1   = ( MXVISB - 1 ),
     +			  MVM1T3 = ( MVM1 * 3 )  )
C*
	PARAMETER	( MXRWVR = 4 )
C*					Maximum number of runway visual  
C*					range groups
	PARAMETER	( MRM1   = ( MXRWVR - 1 ),
     +			  MRM1T5 = ( MRM1 * 5 )  )
C*
C*      Max weather group counter refers to a civals array (icwcod),
C*      not an rivals array.  Only the counter itself (irnpwx) is part 
C*      of rivals.  Therefor, don't add MXWTHR into equation which
C*      calculates total number of real interface mnemonics, since counter
C*      itself is already included.
C*
	PARAMETER	( MXWTHR = 3 )
C*					Maximum number of weather groups 
	PARAMETER	( MWM1   = ( MXWTHR - 1 ) )
C*
	PARAMETER	( MXSKYC = 6 )
C*					Maximum number of sky condition  
C*					groups
	PARAMETER	( MSM1   = ( MXSKYC - 1 ) )
C*
	PARAMETER	( NRSLMN = 51 )
C*					Number of real single-level
C*					interface mnemonics
C*
	PARAMETER	( NRIMN  = (MXVISB * 3) + (MXRWVR * 5) +
     *                             (MXSKYC * 1) + NRSLMN + 4 )
C*					Number of real interface
C*					mnemonics (total number of
C*                                      vis groups + total number of real
C*                                      runway groups + total number of
C*                                      sky groups + total number of singel
C*                                      level data + total number of counters).
C*
	PARAMETER	( NRSLP1 = NRSLMN + 1 )
C*                                      NRSLP1 = Number of real single-level
C*                                               plus 1.
C*
	COMMON  / RINTFP /
     +		iryear  , irmnth  , irdays  , irhour  , irminu  ,
     +		irthrp  , irauto  , irdrct  , irsped  , irsknt  ,
     +		irgums  , irgust  , irdrc1  , irdrc2  , irvrtv  ,
     +		irtmpc  , irdwpc  , iralti  , iraltm  , irp03i  ,
     +		irp06i  , irp24i  , irp01i  , irsnow  , irsnew  ,
     +		irweqs  , irctyl  , irctym  , irctyh  , irmsun  ,
     +		irpmsl  , irtdxc  , irtdnc  , irt6xc  , irt6nc  ,
     +		irp03d  , irctmx  , irctmn  , ircttp  , ircorn  ,
     +		irpwdr  , irpwsp  , irpwhr  , irpwmn  , irwshh  ,
     +		irwshm  , irslat  , irslon  , irselv  , irsst1  ,
     +          irsest  
	COMMON  / RINTFP /
     +		irnvsb  , irvsby ( MXVISB ), irvsbk ( MXVISB ),
     +	 		  irvsfl ( MXVISB ),
     +		irnrwy  , irv1ri ( MXRWVR ), irv2ri ( MXRWVR ),
     +			  irv1rf ( MXRWVR ), irv2rf ( MXRWVR ), 
     +			  irrwyt ( MXRWVR ),
     +		irnpwx  ,
     +		irnsky  , ircmtn ( MXSKYC )                    
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by MT_IFSP and then used
C*					as indices into the real
C*					interface values array rivals( ).
C*
	COMMON  / RINTFV /	rivals
C*					Real interface values
C*
	REAL		rivals ( NRIMN )
C*
	PARAMETER	( NCIMN = 8 )
C*
	COMMON  / CINTFP /
     +		icstid  , icrwid ( MXRWVR ), icwcod ( MXWTHR )
C*                1     +        4         +        3          = 8
C*					Pointers to relative locations of
C*					character interface mnemonics
C*					within cimnem( ).  These
C*					pointers will be set by MT_IFSP
C*					and then used as indices into the
C*					character interface values array
C*					civals( ).
C*
	CHARACTER	civals ( NCIMN ) * 8
C*
	COMMON  / CINTFV / 	civals
C*					Character interface values