REAL*8		r8bfms
	COMMON	/ BFMISS /	r8bfms
C*					BUFR "missing" value
C*
	PARAMETER	( MXLV = 6000 )
C*					Maximum number of levels in a
C*					marine surface BUFR message
C*
	PARAMETER	( MXMN = 20 )
C*					Maximum number of level parms
C*					in a marine surface BUFR message
C*
	REAL*8		r8in ( MXMN, MXLV ), r8wk ( MXMN, MXLV )
	COMMON	/ R8ARRS /	r8in, r8wk