ireadsb.f

Go to the documentation of this file.

C> @file
C> @brief Read the next data subset from a BUFR message.
C>
C> @author J. Woollen @date 1994-01-06
 
C> Calls NCEPLIBS-bufr subroutine readsb() and
C> passes back its return code as the function value.
C>
C> The use of this function allows the return code from readsb() to be
C> used as the target variable within an iterative program loop.
C>
C> @param[in] LUNIT - integer: Fortran logical unit number for BUFR file.
C> @returns ireadsb - integer:
C> - 0 = new BUFR data subset was successfully read into internal arrays
C> - -1 = there are no more BUFR data subsets in the BUFR message
C>
C> @author J. Woollen @date 1994-01-06
 
      RECURSIVE FUNCTION ireadsb(LUNIT) RESULT(IRET)
 
      USE modv_im8b
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C     Check for I8 integers.
 
      IF(im8b) THEN
         im8b=.false.
 
         CALL x84(lunit,my_lunit,1)
         iret=ireadsb(my_lunit)
 
         im8b=.true.
         RETURN
      ENDIF
 
      CALL readsb(lunit,iret)
 
      RETURN
      END