2C> @brief Check whether there are any more data subsets available to be
3C> read from a BUFR message.
4
5C> This function checks whether there are any more data subsets
6C> available to be read from within the BUFR message that is
7C> open for reading via the most recent call to any of the
8C> [message-reading subroutines](@ref hierarchy) for a specified
9C> Fortran logical unit.
10C>
11C> @author J. Woollen
12C> @date 1994-01-06
13C>
14C> @param[in] LUNIT -- integer: Fortran logical unit number for
15C> BUFR file
16C> @returns ifbget -- integer:
17C> - 0 = there is at least one more data subset
18C> to be read from the BUFR message
19C> - -1 = there are no more data subsets
20C> to be read from the BUFR message
21C>
22C> <b>Program history log:</b>
23C> | Date | Programmer | Comments |
24C> | -----|------------|----------|
25C> | 1994-01-06 | J. Woollen | Original author |
26C> | 1998-07-08 | J. Woollen | Replaced call to Cray library routine ABORT with call to new internal routine bort() |
27C> | 1999-11-18 | J. Woollen | The number of BUFR files which can be opened at one time increased from 10 to 32 (necessary in order to process multiple BUFR files under the MPI) |
28C> | 2014-12-10 | J. Ator | Use modules instead of COMMON blocks |