Procedure

     SYREND ( Rename an existing symbol )

     SUBROUTINE SYREND ( OLD, NEW, TABSYM, TABPTR, TABVAL )

Abstract

     Rename an existing symbol in a double precision symbol table.

Required_Reading

     SYMBOLS

Keywords

     SYMBOLS

Declarations

     IMPLICIT NONE

     INTEGER               LBCELL
     PARAMETER           ( LBCELL = -5 )

     CHARACTER*(*)         OLD
     CHARACTER*(*)         NEW
     CHARACTER*(*)         TABSYM     ( LBCELL:* )
     INTEGER               TABPTR     ( LBCELL:* )
     DOUBLE PRECISION      TABVAL     ( LBCELL:* )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     OLD        I   Name of the symbol to be renamed.
     NEW        I   New name of the symbol.
     TABSYM,
     TABPTR,
     TABVAL    I-O  Components of the symbol table.

Detailed_Input

     OLD      is the name of the symbol to be renamed. If OLD is
              not in the symbol table, the tables are not modified.

     NEW      is the new name of the symbol. If the symbol NEW
              already exists in the symbol table, it is deleted.
              OLD is then renamed to NEW.

     TABSYM,
     TABPTR,
     TABVAL   are components of the double precision symbol table.

Detailed_Output

     TABSYM,
     TABPTR,
     TABVAL   are components of the double precision symbol table.
              The values previously associated with OLD are now
              associated with NEW. If OLD is not in the symbol
              table, the symbol tables are not modified.

Parameters

     None.

Exceptions

     1)  If the symbol OLD is not in the symbol table, the error
         SPICE(NOSUCHSYMBOL) is signaled.

Files

     None.

Particulars

     None.

Examples

     The contents of the symbol table are:

        BODY4_POLE_RA -->    3.17681D2
                             1.08D-1
                             0.0D0
        DELTA_T_A     -->    3.2184D1
        K             -->    1.657D-3
        MEAN_ANOM     -->    6.239996D0
                             1.99096871D-7
        ORBIT_ECC     -->    1.671D-2


     The call,

     CALL SYREND ( 'K', 'EB', TABSYM, TABPTR, TABVAL )

     modifies the contents of the symbol table to be:

        BODY4_POLE_RA -->    3.17681D2
                             1.08D-1
                             0.0D0
        DELTA_T_A     -->    3.2184D1
        EB            -->    1.657D-3
        MEAN_ANOM     -->    6.239996D0
                             1.99096871D-7
        ORBIT_ECC     -->    1.671D-2
                             1.08D-1
                             0.0D0

     The next call,

     CALL SYREND ( 'EB', 'DELTA_T_A', TABSYM, TABPTR, TABVAL )

     modifies the contents of the table to be:

        BODY4_POLE_RA -->    3.17681D2
                             1.08D-1
                             0.0D0
        DELTA_T_A     -->    1.657D-3
        MEAN_ANOM     -->    6.239996D0
                             1.99096871D-7
        ORBIT_ECC     -->    1.671D-2
                             1.08D-1
                             0.0D0

     Note that the symbol "DELTA_T_A" was deleted from the table,
     and the symbol "EB" was then renamed to "DELTA_T_A". If the
     new symbol exists, it is deleted from the table before its name
     is given to another symbol.


     The next call,

     CALL SYREND ( 'K', 'EB', TABSYM, TABPTR, TABVAL )

     does not modify the contents of the symbol table. It signals
     the error SPICE(NOSUCHSYMBOL) because the symbol "K" does not
     exist in the symbol table.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 1.1.0, 03-JUN-2021 (JDR)

        Added IMPLICT NONE statement.

        Edited the header to comply with NAIF standard. Fixed I/O type
        of arguments TABSYM, TABPTR and TABVAL in $Brief_I/O table.

    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)