PARAMETER       ( MXMN = 15 )
        PARAMETER       ( MXLV = 255 )
	REAL*8		r8bfms, r8in ( MXMN, MXLV ), r8wk ( MXMN, MXLV )
	CHARACTER*8	subtyp
	COMMON	/ BFRSHR /	subtyp,
C*                                      BUFR output subtype
     +				r8bfms,
C*                                      BUFR "missing" value
     +				r8in, r8wk
C*					BUFR working arrays
C*
	LOGICAL		gots96, gots91
	COMMON	/ DS3SHR /	gots96,
C*					.TRUE. iff the current input
C*					message contains a '307096'
C*					sequence descriptor in Section 3
     +				gots91
C*					.TRUE. iff the current input
C*					message contains a '307091'
C*					sequence descriptor in Section 3