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