NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
ireadns.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Read the next data subset from a BUFR file that was
3 C> previously opened for reading.
4 
5 C> This function calls BUFRLIB subroutine readns() and passes
6 C> back its return code as the function value.
7 C>
8 C> @author J. Woollen
9 C> @date 1994-01-06
10 C>
11 C> @param[in] LUNIT - integer: Fortran logical unit number for
12 C> BUFR file
13 C> @param[out] SUBSET - character*8: Table A mnemonic for type of
14 C> data subset that was read
15 C> (see [DX BUFR Tables](@ref dfbftab)
16 C> for further information about Table A mnemonics)
17 C> @param[out] IDATE - integer: Date-time stored within Section 1 of
18 C> BUFR message containing data subset that
19 C> was read, in format of either
20 C> YYMMDDHH or YYYYMMDDHH, depending on the most
21 C> recent call to subroutine datelen()
22 C> @returns ireadns - integer:
23 C> - 0 = new BUFR data subset was successfully
24 C> read into internal arrays
25 C> - -1 = there are no more BUFR data subsets in
26 C> the file connected to logical unit LUNIT
27 C>
28 C> @remarks
29 C> - The use of this function allows the return code from readns() to be
30 C> used as the target variable within an iterative program loop.
31 C>
32 C> <b>Program history log:</b>
33 C> - 1994-01-06 J. Woollen -- Original author
34 C> - 2002-05-14 J. Woollen -- Changed from an entry point to increase
35 C> portability to other platforms
36 C>
37  FUNCTION ireadns(LUNIT,SUBSET,IDATE)
38 
39  CHARACTER*8 subset
40  CALL readns(lunit,subset,idate,iret)
41  ireadns = iret
42  RETURN
43  END
function ireadns(LUNIT, SUBSET, IDATE)
This function calls BUFRLIB subroutine readns() and passes back its return code as the function value...
Definition: ireadns.f:37
subroutine readns(LUNIT, SUBSET, JDATE, IRET)
This subroutine provides a handy way to combine the functionality of subroutines readmg() and readsb(...
Definition: readns.f:54