INCLUDE          'CURR.CMN'
        COMMON /BLOCK1/  rctim,   irptdt,
     +                   irptyp,  idtype
C*
        COMMON /BLOCK2/  buhd,    btime,   bbb,     cborg,   seqnum
C*
        COMMON /BLOCK3/  logmsg
C*
        REAL     rctim(6)
C*
        INTEGER  	irptdt(5)
C*
        CHARACTER*1000  logmsg
C*
        CHARACTER*8  	cborg,   buhd,     bbb,   btime
C*
        CHARACTER*4  	seqnum
C*
	PARAMETER	( MXRPT = 540 )
C*			Max number of reports in one bulletin.  540 is
C*			the number of reports you'd have in a TRACKOB if 
C*			one ship took an obs every 4 minutes for a day 
C*			and a half.
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*
C*  Number of real single-level interface mnemonics
C*
        PARAMETER       ( NRSLMN = 23 )
C*
C*  Maximum number of layers of depth/temperature/salinity/current
C*  data which will be decoded in a bathy or tesac report.
C*
        PARAMETER       ( MXDLYR = 1000 )
C*
        PARAMETER       (   MDM1 =  MXDLYR - 1 )
C*
        PARAMETER       (   MDM1P3 = 3 * MDM1 )
        PARAMETER       (   MCM1P3 = 3 * MDM1 )
C*					
        PARAMETER       ( MNNN = NRSLMN + MDM1P3 + 4 )
        PARAMETER       ( MNNO = MNNN + MCM1P3 + 4 )
C*
C*  The set of trackob parameters.                                  
C*
        INTEGER         TRKAVP
        PARAMETER       ( TRKAVP = 3 )
C*
        PARAMETER       (   MTM1 =  TRKAVP - 1 )
C*
        PARAMETER       (   MTM1P1 =  MTM1 )
C*					
C*  Number of real interface 
C*
        PARAMETER (NRIMN = ( NRSLMN + ( 2 * ( ( 3 * MXDLYR ) + 1 ) ) + 
     +                     ( TRKAVP + 1 ) ) )
C*
C*  Pointers to relative locations of real interface mnemonics within
C*  rimnem( ).  These pointers will be set by BT_IFSP and then used
C*  as indices into the real interface values array rivals( ).
C*
        COMMON  / RINTFP /
     +          irslat  , irslon  , irselv  , irydgt  , irmnth  ,
     +          irdays  , irhour  , irminu  , iriuws  , irdrct  ,
     +          irsped  , irtmpc  , iridgt  , iriwtm  , irwtmr  ,
     +          irsstc  , irtowd  , irmcms  , irmsdm  , irucsp  ,
     +          irmrmv  , irpocm  , irdtcc 
C*
        COMMON  / RINTFP /
     +		irndts  , irdbss ( MXDLYR ) , irstmp ( MXDLYR ) , 
     +                    irsaln ( MXDLYR ) 
C*
        COMMON  / RINTFP /
     +		irnddc  , irdbsc ( MXDLYR ) , irdroc ( MXDLYR ) , 
     +                    irspoc ( MXDLYR )   
C*
	COMMON	/ RINTFP /
     +		irntrk  , iravgp ( TRKAVP ) 
C*
	REAL		rivals ( NRIMN )
C*
C*  Real interface values 
C*
	COMMON	/ RINTFV /	rivals
C*
	PARAMETER 	( NCIMN = 1 )
C*
C*   Pointers to relative locations of character interface mnemonics
C*   within cimnem( ).  These pointers will be set by BT_IFSP
C*   and then used as indices into the character interface values array
C*   civals( ).
C*
	COMMON	/ CINTFP / icstid
C*
	CHARACTER	civals ( NCIMN )*8
C*
C*   Character interface values 
C*
	COMMON	/ CINTFV /	civals