REAL*8          r8bfms
        COMMON  / BFMISS /      r8bfms
C*                                      BUFR "missing" value
C*
	CHARACTER	logmsg*200
	COMMON	/ LOGMSG /	logmsg
C*					String to hold a message to be
C*					written to decoder log
C*
        PARAMETER       ( MXP = 10, MXL = 150 )
	REAL*8          r8wk ( MXP, MXL ), r8wk2 ( MXP, MXL )
        COMMON  / WKARRS /      r8wk, r8wk2
C*                                      Work arrays for reading from and
C*                                      writing to BUFR files