Procedure

     SYORDD ( Order the components of a single symbol )

     SUBROUTINE SYORDD ( NAME, TABSYM, TABPTR, TABVAL )

Abstract

     Order the components of a single symbol in a double precision
     symbol table. The components are sorted in increasing order.

Required_Reading

     SYMBOLS

Keywords

     SYMBOLS

Declarations

     IMPLICIT NONE

     INTEGER               LBCELL
     PARAMETER           ( LBCELL = -5 )

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

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     NAME       I   Name of the symbol whose components are to be
                    ordered.
     TABSYM,
     TABPTR,
     TABVAL    I-O  Components of the symbol table.

Detailed_Input

     NAME     is the name of the symbol whose components are to be
              ordered.

     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, Tte components of the symbol are sorted in
              increasing order. If NAME is not in the symbol table, the
              symbol table is not modified.

Parameters

     None.

Exceptions

     None.

Files

     None.

Particulars

     If the symbol NAME is not in the symbol table, the symbol table
     is not modified.

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 SYORDD ( 'BODY4_POLE_RA', TABSYM, TABPTR, TABVAL )

     modifies the contents of the symbol table to be:

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

     Note that the call,

        CALL SYORDD ( 'BODY4_PRIME', TABSYM, TABPTR, TABVAL )

     will not modify the symbol table because the symbol "BODY4_PRIME"
     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)