COMMON /BLOCK1/  ihour,   iprec,   ixind,   
     +                   irptdt,  ibrtyp,  xwvhgt,  xswell,
     +                   rctim,   xm907g,  xtmpk,   ipdprc,
     +                   xm907s,  ctyflg,  kwmo,    ispwds,  jnprcv,
     +                   kcoun
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        COMMON /BLOCK6/  isec1,  lsec1,  isec2,  lsec2,  isec3,  lsec3,
     +                   isec4,  lsec4,  isec5,  lsec5
C*
        REAL             xswell(6),  rctim(6)
C*
        INTEGER          irptdt(5)
C*
        LOGICAL          ctyflg
C*
        CHARACTER*1000   logmsg
C*
        CHARACTER*8  	 cborg,   buhd,     bbb,   btime
C*
        CHARACTER*4      seqnum
C*
        CHARACTER*2      kcoun
C*
	REAL*8          r8bfms
	COMMON  / BFMISS /      r8bfms
C*					BUFR "missing" value
C************************************************************************
C*  / INTF /								*
C*									*
C*  This common area contains the interface arrays.			*
C************************************************************************
	PARAMETER	( MXCLYR = 9 )
C*                                      Maximum number of layers of
C*					clouds
C*
  	PARAMETER	(   MCM1 = ( MXCLYR - 1 ),
     +			  MCM1T7 = ( MCM1 * 7 )   )
C*
	PARAMETER	( MXSLYR = 2 )
C*					Maximum number of layers of 
C*					wave data that will be decoded
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 = 69 )
C*					Number of real single-level 
C*					interface mnemonics
C*
        PARAMETER       (NRIMN = (7 * MXCLYR) + (3 * MXSLYR)
     +                         + (3 * MXSPWL) + (2 * MXPCVL)
     +                         +  NRSLMN + 4 )
C*
C*					Total number of real interface
C*					mnemonics ( total number of
C*                                      mult-layer data + single-level
C*                                      data + total number of counters
C*                                      for multi-layer data).
C*
	COMMON	/ RINTFP /
     +		irslat  , irslon  , irselv  , iryear  , irmnth  ,
     +          irdays  , irhour  , irminu  , irdrct  , irsped  ,
     +          irpres  , irpmsl  , irp03d  , irchpt  , ir3hpc  ,
     +          irrelh  , irmsst  , irstwc  , irtmpc  , irdwpc  ,
     +          irsstc  , irtmwc  , irdtv1  , irmxtm  , irdtv2  ,
     +          irmitm  , irgeop  , irisob  , irinpc  , iritso  ,
     +          irtost  , irvsbk  , ircfrt  , irpwpd  , irwwmo  ,
     +          irwwma  , irpwwm  , irpwwa  , irpwa2  , irpsw2  ,
     +          irdofs  , irdhfs  , irsncm  , ircttp  , irctmx  ,
     +          irctmn  , ircp24  , irwper  , irpoww  , irhoww  ,
     +          ircoia  , iridth  , irroia  , ir24pc  , irpwyr  ,
     +          irpwmo  , irpwdy  , irpwhr  , irpwmn  , irpwdr  ,
     +          irpwsp  , irwhgt  , irisws  , irvrtm  , irsgr1  ,
     +          irsgr2  , irhblc  , irmrsq  , irqcvr
C*
	COMMON	/ RINTFP /
     +          irnclo  , irvsso ( MXCLYR ) , irclam ( MXCLYR ) ,
     +                    ircltp ( MXCLYR ) , irhocb ( MXCLYR ) ,
     +                    irctds ( MXCLYR ) , irhoct ( MXCLYR ) ,
     +                    ircsec ( MXCLYR ) ,
     +          irnswv  , irdosw ( MXSLYR ) , irposw ( MXSLYR ) ,
     +                    irhosw ( MXSLYR ) ,
     +          irnspw  , irspwp ( MXSPWL ) , irspws ( MXSPWL ) ,
     +                    irspwt ( MXSPWL ) ,
     +          irnpcv  , irpprd ( MXPCVL ) , irpamt ( MXPCVL )
C*					Pointers to relative locations of
C*					real interface mnemonics within
C*					rimnem( ).  These pointers will
C*					be set by LS_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 LS_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