msgfull.f

Go to the documentation of this file.

C> @file
C> @brief Check whether a data subset will fit within a BUFR message

C> This function determines whether the current data subset in the
C> internal arrays will fit within the current BUFR message in the
C> internal arrays, based on the prescribed maximum size of a BUFR
C> message and the allowance of some extra "wiggle room" that may
C> be needed later when writing out the message.
C>
C> @author J. Ator
C> @date 2009-03-23
C>
C> @param[in] MSIZ -- integer: Size (in bytes) of current BUFR message
C> @param[in] ITOADD -- integer: Size (in bytes) of current data subset 
C> @param[in] MXSIZ -- integer: Maximum size of a BUFR message
C> @returns MSGFULL -- logical: Flag indicating whether the current
C>                     data subset will fit within the current BUFR
C>                     message
C>
C> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2009-03-23 | J. Ator | Original author |
C>
      LOGICAL FUNCTION msgfull(MSIZ,ITOADD,MXSIZ)

      USE modv_maxnc

      COMMON /msgstd/ csmf
      COMMON /tnkrcp/ itryr,itrmo,itrdy,itrhr,itrmi,ctrt

      CHARACTER*1 csmf
      CHARACTER*1 ctrt

C----------------------------------------------------------------------
C----------------------------------------------------------------------

C     Allow for at least 11 additional bytes of "wiggle room" in the
C     message, because subroutine MSGWRT may do any or all of the
C     following:
C        3 bytes may be added by a call to subroutine CNVED4
C      + 1 byte (at most) of padding may be added to Section 4
C      + 7 bytes (at most) of padding may be added up to the next
C          word boundary after Section 5
C     ----
C       11

      iwgbyt = 11

C     But subroutine MSGWRT may also do any of all of the following:

C        6 bytes may be added by a call to subroutine ATRCPT

         IF(ctrt.EQ.'Y') iwgbyt = iwgbyt + 6

C        (MAXNC*2) bytes (at most) may be added by a call to
C        subroutine STNDRD

         IF(csmf.EQ.'Y') iwgbyt = iwgbyt + (maxnc*2)

C     Determine whether the subset will fit.

      IF ( ( msiz + itoadd + iwgbyt ) .GT. mxsiz ) THEN
    msgfull = .true.
      ELSE
    msgfull = .false.
      ENDIF

      RETURN
      END