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