Procedure

     SYFETD ( Fetch the Nth symbol in the table )

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

Abstract

     Fetch the Nth symbol in a double precision symbol table.

Required_Reading

     SYMBOLS

Keywords

     SYMBOLS

Declarations

     IMPLICIT NONE

     INTEGER               LBCELL
     PARAMETER           ( LBCELL = -5 )

     INTEGER               NTH
     CHARACTER*(*)         TABSYM     ( LBCELL:* )
     INTEGER               TABPTR     ( LBCELL:* )
     DOUBLE PRECISION      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 double precision 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 double
         precision symbol table, an error is signaled by a routine in
         the call tree of this routine. This normally indicates that
         the double precision symbol table is corrupted.

Files

     None.

Particulars

     None.

Examples

     The contents of the symbol table are:

         DELTA_T_A -->   32.184
         K         -->    1.657D-3
         MEAN_ANOM -->    6.239996D0
                          1.99096871D-7
         ORBIT_ECC -->    1.671D-2

      The calls,

      CALL SYFETD (  2,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETD (  3,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETD ( -1,  TABSYM, TABPTR, TABVAL, NAME, FOUND )
      CALL SYFETD (  5,  TABSYM, TABPTR, TABVAL, NAME, FOUND )

      result in the values for NAME and FOUND:

         NAME        FOUND
         ----------  -------
         K            .TRUE.
         MEAN_ANOM    .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)