nmwrd.f

Go to the documentation of this file.

C> @file
C> @brief Determine the array size needed to store a BUFR message.
C>
C> @author J. Ator @date 2005-11-29
 
C> Given an integer array containing Section 0 from a BUFR
C> message, this function determines the array size (in integers)
C> needed to store the entire BUFR message.
C>
C> This function is similar to function lmsg(), except that it
C> takes an integer array as input rather than a character string.
C>
C> @param[in]  MBAY  -- integer(*): Section 0 from a BUFR message
C> @returns   nmwrd  -- integer: Array size (in integers) needed to
C>                      store entire BUFR message
C>
C> @remarks
C> - In some cases, the value returned may be slightly larger than
C> the minimum number of integers needed to store the entire BUFR
C> message.
C>
C> @author J. Ator @date 2005-11-29
        RECURSIVE FUNCTION nmwrd(MBAY) RESULT(IRET)
 
        USE modv_im8b
 
        COMMON /hrdwrd/ nbytw,nbitw,iord(8)
 
        dimension mbay(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C       Check for I8 integers.
 
        IF (im8b) THEN
            im8b = .false.
 
            iret = nmwrd(mbay)
 
            im8b = .true.
            RETURN
        END IF
 
        lenm = iupbs01(mbay,'LENM')
        IF(lenm.EQ.0) THEN
            iret = 0
        ELSE
            iret = ((lenm/8)+1)*(8/nbytw)
        ENDIF
 
        RETURN
        END