igetntbl.f

Go to the documentation of this file.

C> @file
C> @brief Read the next line from a master table B, table D or Code/Flag
C> table file

C> This subroutine reads the next line from an ASCII master table B,
C> table D or Code/Flag table file, ignoring any blank lines or comment
C> lines in the process.
C>
C> @author J. Ator
C> @date 2007-01-19
C>
C> @param[in] LUNT   -- integer: Fortran logical unit number for
C>                      ASCII file containing table information
C> @param[out] LINE  -- character*(*): Next non-blank, non-comment line
C>                      that was read from LUNT
C> @returns igetntbl -- 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>
    FUNCTION igetntbl ( LUNT, LINE )

    character*(*)   line

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

  10    READ ( lunt, '(A)', end=100, err=200 ) line
    IF ( ( line .EQ. ' ' ) .OR. ( line(1:1) .EQ. '#' ) ) goto 10
    IF ( line(1:3) .EQ. 'END' ) goto 100

    igetntbl = 0
    RETURN

 100    igetntbl = -1
    RETURN

 200    igetntbl = -2
    RETURN

    END