lmsg.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. Woollen @date 1994-01-06
 
C> Given a character string 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 nmwrd(), except that it
C> takes a character string as input rather than an integer array.
C>
C> @param[in]  SEC0  -- character*8: Section 0 from a BUFR message
C> @returns    lmsg  -- 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. Woollen @date 1994-01-06
      RECURSIVE FUNCTION lmsg(SEC0) RESULT(IRET)
 
      USE modv_im8b
 
      CHARACTER*8 sec0,csec0
      dimension   msec0(2)
 
      equivalence(msec0,csec0)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C     Check for I8 integers.
 
      IF (im8b) THEN
        im8b = .false.
 
        iret = lmsg(sec0)
 
        im8b = .true.
        RETURN
      END IF
 
      csec0 = sec0
      iret = nmwrd(msec0)
 
C  EXIT
C  ----
 
      RETURN
      END