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