ifbget.f

Go to the documentation of this file.

C> @file
C> @brief Check whether there are any more data subsets available to be
C> read from a BUFR message.
C>
C> @author J. Woollen @date 1994-01-06
 
C> This function checks whether there are any more data subsets
C> available to be read from within the BUFR message that is
C> open for reading via the most recent call to any of the
C> [message-reading subroutines](@ref hierarchy) for a specified
C> Fortran logical unit.
C>
C> @param[in] LUNIT - integer: Fortran logical unit number for BUFR file
C> @returns ifbget - integer:
C> - 0 = there is at least one more data subset to be read from the message
C> - -1 = there are no more data subsets to be read from the message
C>
C> @author J. Woollen @date 1994-01-06
      RECURSIVE FUNCTION ifbget(LUNIT) RESULT(IRET)
 
      USE modv_im8b
 
      USE moda_msgcwd
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C  CHECK FOR I8 INTEGERS
C  ---------------------
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         iret=ifbget(my_lunit)
 
         im8b=.true.
         RETURN
      ENDIF
 
      iret = -1
 
C  MAKE SURE A FILE/MESSAGE IS OPEN FOR INPUT
C  ------------------------------------------
 
      CALL status(lunit,lun,il,im)
      IF(il.EQ.0) GOTO 900
      IF(il.GT.0) GOTO 901
      IF(im.EQ.0) GOTO 902
 
C  SEE IF THERE IS ANOTHER SUBSET IN THE MESSAGE
C  ---------------------------------------------
 
      IF(nsub(lun).LT.msub(lun)) THEN
         iret = 0
      ENDIF
 
C  EXITS
C  -----
 
      RETURN
900   CALL bort('BUFRLIB: IFBGET - INPUT BUFR FILE IS CLOSED, IT '//
     . 'MUST BE OPEN FOR INPUT')
901   CALL bort('BUFRLIB: IFBGET - INPUT BUFR FILE IS OPEN FOR '//
     . 'OUTPUT, IT MUST BE OPEN FOR INPUT')
902   CALL bort('BUFRLIB: IFBGET - A MESSAGE MUST BE OPEN IN INPUT '//
     . 'BUFR FILE, NONE ARE')
      END