igetmxby.f

Go to the documentation of this file.

C> @file
C> @brief Get the maximum length of a BUFR message that can be
C> written to an output file.
C>
C> @author J. Ator @date 2016-06-27
 
C> Get the maximum length of a BUFR message that can be written
C> to an output file.
C>
C> This function returns the maximum length of a BUFR message that
C> can be written to any output file by the NCEPLIBS-bufr software.
C>
C> @returns igetmxby - integer: Maximum length of a BUFR message
C> that can be written to an output file by the NCEPLIBS-bufr software.
C>
C> This maximum length value can be changed at any time via a
C> separate call to subroutine maxout().
C>
C> @author J. Ator @date 2016-06-27
      RECURSIVE FUNCTION igetmxby() RESULT(IRET)
 
      USE modv_im8b
 
      USE moda_bitbuf
 
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
 
C     CHECK FOR I8 INTEGERS.
 
      IF(im8b) THEN
          im8b=.false.
 
          iret = igetmxby()
 
          im8b=.true.
          RETURN
      ENDIF
 
      CALL openbf(0,'FIRST',0)
 
      iret = maxbyt
 
      RETURN
      END