getntbe.f

Go to the documentation of this file.

C> @file
C> @brief Read the first line of the next entry from an ASCII master
C> table B, table D or Code/Flag file.
    
C> This subroutine gets the first line of the next entry in
C> the specified ASCII master table B, table D or table F (Code/Flag)
C> file. This line contains, among other things, the FXY number
C> corresponding to this entry.
C>
C> @author J. Ator
C> @date 2007-01-19
C>
C> @param[in] LUNT integer: Fortran logical unit number of ASCII file
C> containing master table B, table D or table F (Code/Flag) information
C> @param[out] IFXYN integer: bit-wise representation of FXY number for
C> next table entry
C> @param[out] LINE character*(*): first line of next table entry
C> @param[out] IRET integer: return code:
C> -  0 = normal return
C> -  -1 = end-of-file encountered while reading from LUNT
C> -  -2 = I/O error encountered while reading from LUNT
C>
C> <b>Program history log:</b>
C> - 2007-01-19  J. Ator    -- Original author
C>
    SUBROUTINE getntbe ( LUNT, IFXYN, LINE, IRET )

    character*(*)   line
    character*128   bort_str1, bort_str2
    character*20    tags(4)
    character*6 adsc

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

C   Get the first line of the next entry in the file.

    iret = igetntbl( lunt, line )
    IF ( iret .EQ. 0 ) THEN

C       The first field within this line should contain the
C       FXY number.

        CALL parstr( line(1:20), tags, 4, ntag, '|', .false. )
        IF ( ntag .LT. 1 ) goto 900
        IF ( igetfxy( tags(1), adsc ) .NE. 0 ) goto 900

C       Store the bit-wise representation of the FXY number.

        ifxyn = ifxy( adsc )
    ENDIF

    RETURN

 900    bort_str1 = 'BUFRLIB: GETNTBE - CARD BEGINNING WITH: ' //
     .     line(1:20)
        bort_str2 = '                  HAS BAD OR MISSING FXY NUMBER'
    CALL bort2(bort_str1,bort_str2)

    END