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> 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> @author J. Ator
C> @date 2007-01-19
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> <b>Program history log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
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