getntbe.f

Go to the documentation of this file.

C> @file
C> @brief Read the first line of the next entry from a master
C> table B, table D or Code/Flag table file
C>
C> @author J. Ator @date 2007-01-19
 
C> This subroutine reads the first line of the next entry from
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> @param[in] LUNT   -- integer: Fortran logical unit number of
C>                     master table B, table D or Code/Flag table file
C> @param[out] IFXYN -- integer: Bit-wise representation of FXY number
C>                     for 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
C>                              from LUNT
C>                      -  -2 = I/O error encountered while reading
C>                              from LUNT
C>
C> @author J. Ator @date 2007-01-19
        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