COMMON /BLOCK1/  ihour,   iprec,   ixind,   
     +                   irptdt,  ibrtyp,  ifbuoy,
     +                   xwvhgt,  xswell,  rctim,  
     +                   iflgco,  xm907,
     +                   ispwds,  jnprcv
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        COMMON /BLOCK5/  jstn,  jstnid,  elev,  ylat,  ylong
C*
        COMMON /BLOCK6/ isec1,  lsec1,  isec2,  lsec2,  isec3,  lsec3,
     +                  isec4,  lsec4,  isec5,  lsec5
C*
        COMMON /BLOCK7/  jstnm,  jstnidm,  elevm,  ylatm,  ylongm
C*
        COMMON /BLOCK8/  jstnt,  jstnidt,  elevt,  ylatt,  ylongt
C*
        COMMON /BLOCK9/  smcman, tgcman
C*
        INTEGER  	MTBLSZ   
	PARAMETER	( MTBLSZ = 500 )
C*
        REAL   		xswell(6),   rctim(6)
        REAL   		ylat(MTBLSZ), ylong(MTBLSZ), elev(MTBLSZ)
        REAL   		ylatm(MTBLSZ), ylongm(MTBLSZ), elevm(MTBLSZ)
        REAL   		ylatt(MTBLSZ), ylongt(MTBLSZ), elevt(MTBLSZ)
C*
        INTEGER  	irptdt(5)
C*
        LOGICAL  	smcman, tgcman
C*
        CHARACTER*1000  logmsg
C*
        CHARACTER*8  	cborg,   buhd,     bbb,   btime
        CHARACTER*8   	jstnid(MTBLSZ), jstnidm(MTBLSZ), jstnidt(MTBLSZ)
C*
        CHARACTER*4  	seqnum
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
C*
	PARAMETER	( MXCLYR = 7 )
C*                                      Maximum number of layers of
C*					clouds
C*
  	PARAMETER	(   MCM1 = ( MXCLYR - 1 ),
     +			  MCM1T5 = ( MCM1 * 5 )   )
C*
	PARAMETER	( MXWLYR = 6 )
C*					Maximum number of layers of
C*					continuous wind data
C*
  	PARAMETER	(   MWM1 = ( MXWLYR - 1 ),
     +			  MWM1T3 = ( MWM1 * 3 )   )
C*
	PARAMETER	( MXSLYR = 2 )
C*					Maximum number of layers of 
C*					wave data
C*
  	PARAMETER	(   MSM1 = ( MXSLYR - 1 ),
     +			  MSM1T3 = ( MSM1 * 3 )   )
C*					
	PARAMETER	( MXSPWL = 3 )
C*					Maximum number of layers of 
C*					supplementary wind data
C*
  	PARAMETER	(   MSPW = ( MXSPWL - 1 ),
     +			  MSPWT3 = ( MSPW * 3 )   )
C*					
	PARAMETER	( MXPCVL = 15 )
C*					Maximum number of
C*					precipitation values
C*
  	PARAMETER	(   MPCV = ( MXPCVL - 1 ),
     +			  MPCVT1 = ( MPCV * 2 )   )
C*					
	PARAMETER 	( NRSLMN = 61 )
C*					Number of real single-level 
C*					interface mnemonics
C*
        PARAMETER       ( NRIMN = (5 * MXCLYR) + (3 * MXWLYR) 
     +                          + (3 * MXSLYR) + (3 * MXSPWL)
     +                          + (2 * MXPCVL) + NRSLMN + 5 )
C*                                      Total number of real interface
C*                                      mnemnonics ( total number of
C*                                      mult-layer data + single-level
C*                                      data + total number of counters
C*                                      for multi-layer data).
	COMMON	/ RINTFP /
     +		iryear  , irmnth  , irdays  , irhour  , irminu  ,
     +		irslat  , irslon  , irselv  , irdrct  , irsped  ,
     +		irxs10  , irxs20  , irpres  , irpmsl  , irp03d  , 
     +		irchpt  , ir3hpc  , irrelh  , irmsst  , irstwc  ,
     +		irtmpc  , irdwpc  , irsstc  , irtmwc  , irdtv1  ,
     +		irmxtm  , irdtv2  , irmitm  , 
     +		irinpc  , iritso  , irtost  , irvsbk  , ircfrt  ,
     +		irpwpd  , irwwmo  , irwwma  , irpwwm  , irpwwa  ,
     +		irpsw2  , irtdmp  , irasmp  , irwper  , irpoww  ,
     +          irhoww  , ircoia  , iridth  , irroia  , ir24pc  ,
     +          irpwyr  , irpwmo  , irpwdy  , irpwhr  , irpwmn  ,
     +          irpwdr  , irpwsp  , irwhgt  , irisws  , irpwa2  ,
     +          irvrtm  , irhblc  , irtllw
C*
	COMMON	/ RINTFP /
     +          irnclo  , irvsso ( MXCLYR ) , irclam ( MXCLYR ) ,
     +                    ircltp ( MXCLYR ) , irhocb ( MXCLYR ) ,
     +                    ircsec ( MXCLYR ) ,
     +          irncwd  , irtpmi ( MXWLYR ) , irwdrc ( MXWLYR ) ,
     +                    irwdsc ( MXWLYR ) ,
     +          irnswv  , irdosw ( MXSLYR ) , irposw ( MXSLYR ) ,
     +                    irhosw ( MXSLYR ) ,
     +          irnspw  , irspwp ( MXSPWL ) , irspws ( MXSPWL ) ,
     +                    irspwt ( MXSPWL ) ,
     +          irnpcv  , irpprd ( MXPCVL ) , irpamt ( MXPCVL )
C*
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by MA_IFSP and then used
C*					as indices into the real
C*					interface values array rivals( ).
C*
	REAL		rivals ( NRIMN )
C*
	COMMON	/ RINTFV /	rivals
C*					Real interface values 
C*
	PARAMETER 	( NCIMN = 1 )
C*
	COMMON	/ CINTFP / icstid
C*					Pointers to relative locations of
C*					character interface mnemonics
C*					within cimnem( ).  These
C*					pointers will be set by MA_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