Procedure

     SYFETC ( Fetch the Nth symbol in the table )

     SUBROUTINE SYFETC ( NTH, TABSYM, TABPTR, TABVAL, NAME, FOUND )

Abstract

     Fetch the Nth symbol in a character symbol table.

Required_Reading

     SYMBOLS

Keywords

     SYMBOLS

Declarations

     IMPLICIT NONE

     INTEGER               LBCELL
     PARAMETER           ( LBCELL = -5 )

     INTEGER               NTH
     CHARACTER*(*)         TABSYM     ( LBCELL:* )
     INTEGER               TABPTR     ( LBCELL:* )
     CHARACTER*(*)         TABVAL     ( LBCELL:* )
     CHARACTER*(*)         NAME
     LOGICAL               FOUND

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     NTH        I   Index of symbol to be fetched.
     TABSYM,
     TABPTR,
     TABVAL     I   Components of the symbol table.
     NAME       O   Name of the NTH symbol in the symbol table.
     FOUND      O   .TRUE. if the NTH symbol is in the symbol table.

Detailed_Input

     NTH      is the index of the symbol to be fetched. If the NTH
              symbol does not exist, FOUND is .FALSE.

     TABSYM,
     TABPTR,
     TABVAL   are the components of a character symbol table.
              The NTH symbol may or may not be in the symbol
              table. The symbol table is not modified by this
              subroutine.

Detailed_Output

     NAME     is the name of the NTH symbol in the symbol table.

     FOUND    is .TRUE. if the NTH symbol is in the symbol table.
              If the NTH symbol is not in the table, FOUND is .FALSE.

Parameters

     None.

Exceptions

     1)  If there is an issue while reading the components of a
         character symbol table, an error is signaled by a routine in
         the call tree of this routine. This normally indicates that
         the character symbol table is corrupted.

Files

     None.

Particulars

     None.

Examples

     The contents of the symbol table are:

         BOHR      -->   HYDROGEN ATOM
         EINSTEIN  -->   SPECIAL RELATIVITY
                         PHOTOELECTRIC EFFECT
                         BROWNIAN MOTION
         FERMI     -->   NUCLEAR FISSION

      The calls,

      CALL SYFETC (  2,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETC (  3,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETC ( -1,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETC (  4,  TABSYM, TABPTR, TABVAL, NAME, FOUND )

      result in the values for NAME and FOUND:

         NAME        FOUND
         ----------  -------
         EINSTEIN     .TRUE.
         FERMI        .TRUE.
                     .FALSE.
                     .FALSE.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     H.A. Neilan        (JPL)
     W.L. Taber         (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.1.0, 16-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Added entry #1
        in $Exceptions section.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (IMU) (HAN) (NJB)