Procedure

     SYDUPD ( Create a duplicate of a symbol )

     SUBROUTINE SYDUPD ( NAME, COPY, TABSYM, TABPTR, TABVAL )

Abstract

     Create a duplicate of a symbol within a double precision symbol
     table. If a symbol with the new name already exists, its
     components are replaced.

Required_Reading

     SYMBOLS

Keywords

     SYMBOLS

Declarations

     IMPLICIT NONE

     INTEGER               LBCELL
     PARAMETER           ( LBCELL = -5 )

     CHARACTER*(*)         NAME
     CHARACTER*(*)         COPY
     CHARACTER*(*)         TABSYM     ( LBCELL:* )
     INTEGER               TABPTR     ( LBCELL:* )
     DOUBLE PRECISION      TABVAL     ( LBCELL:* )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     NAME       I   Name of the symbol to be duplicated.
     COPY       I   Name of the new symbol.
     TABSYM,
     TABPTR,
     TABVAL    I-O  Components of the symbol table.

Detailed_Input

     NAME     is the name of the symbol to be duplicated.

              The components associated with NAME will be given to the
              new symbol COPY. If NAME is not in the symbol table, no
              duplicate symbol can be made.

     COPY     is the name of the new symbol. If a symbol with the
              name COPY already exists in the symbol table, its
              components are replaced by the components of NAME.

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

Detailed_Output

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

              On output, the symbol table contains a new symbol COPY
              whose components are the same as the components of
              NAME.

Parameters

     None.

Exceptions

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

     2)  If duplication of the symbol causes an overflow in the
         name table, the error SPICE(NAMETABLEFULL) is signaled.

     3)  If duplication of the symbol causes an overflow in the
         pointer table, the error SPICE(POINTERTABLEFULL) is signaled.

     4)  If duplication of the symbol causes an overflow in the
         value table, the error SPICE(VALUETABLEFULL) is signaled.

Files

     None.

Particulars

     If the symbol NAME is not in the symbol table, no duplicate symbol
     can be made.

     If the symbol COPY is already in the symbol table, its components
     are replaced by the components of NAME.

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 code,

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

     produces the symbol table:

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

     The code,

        CALL SYDUPD ( 'M0', 'M1', TABSYM, TABPTR, TABVAL )

     produces the error SPICE(NOSUCHSYMBOL) because the symbol "M0" is
     not 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, 08-APR-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    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)