Procedure

     DSKSTL ( DSK, set tolerance )

     ENTRY DSKSTL ( KEYWRD, DPVAL )

Abstract

     Set the value of a specified DSK tolerance or margin parameter.

Required_Reading

     DSK

Keywords

     DSK
     MARGIN
     NUMERIC
     TOLERANCE

Declarations

    INTEGER               KEYWRD
    DOUBLE PRECISION      DPVAL

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     KEYWRD     I   Code specifying parameter to modify.
     DPVAL      I   New value of parameter.

Detailed_Input

     KEYWRD   is an integer code specifying the parameter to
              set. See the include file dsktol.inc for
              a description of the possible keywords.

     DPVAL    is the new value of the parameter specified by KEYWRD.
              This value will be retrieved by future calls to
              to DSKGTL made to retrieve the specified parameter.

              <<< Use extreme caution. This routine performs no
              checks on DPVAL. >>>

Detailed_Output

     None.

     This routine operates by side effects.

Parameters

     See the include file

        dsktol.inc

     for descriptions and values of the tolerance or margin parameters
     accessed by this routine, and of the keyword parameters used to
     refer to them.

Exceptions

     1)  If the input keyword is not recognized, the error
         SPICE(INDEXOUTOFRANGE) is signaled.

     2)  If an attempt is made to modify a fixed parameter,
         the error SPICE(IMMUTABLEVALUE) is signaled.

Files

     None.

Particulars

     The routines in this package serve to centralize numeric
     tolerance and margin values used by the DSK subsystem.
     The subsystem retrieves values from this package to use
     at run time.

     The entry points of this routine are

        DSKGTL {DSK, get tolerance value}
        DSKSTL {DSK, set tolerance value}

     To minimize run time overhead, the "keywords" used by
     these routines to identify parameters are actually
     integer codes.

     SPICE users may override certain values maintained by
     this package; others values are fixed. It is recommended
     that any change to the tolerance values made at run
     time be performed only by expert SPICE users.

Examples

     The numerical results shown for this example may differ across
     platforms. The results depend on the SPICE kernels used as
     input, the compiler and supporting libraries, and the machine
     specific arithmetic implementation.

     1) Obtain, display, and update the DSK type 2 plate expansion
        fraction.


        Example code begins here.


              PROGRAM DSKSTL_EX1
              IMPLICIT NONE

        C
        C     Include files
        C
              INCLUDE 'dsktol.inc'

        C
        C     Local variables
        C
              DOUBLE PRECISION      DPVAL

              CALL DSKGTL ( KEYXFR, DPVAL )

              WRITE(*,*) 'Default plate expansion fraction = ', DPVAL

        C
        C     Update the parameter.
        C
              CALL DSKSTL ( KEYXFR, 1.D-8 )

        C
        C     Verify the update.
        C
              CALL DSKGTL ( KEYXFR, DPVAL )

              WRITE(*,*) 'New plate expansion fraction     = ', DPVAL

              END


        When this program was executed on a Mac/Intel/gfortran/64-bit
        platform, the output was:


         Default plate expansion fraction =    1.0000000000000000E-010
         New plate expansion fraction     =    1.0000000000000000E-008

Restrictions

     1)  The default settings used by the DSK subsystem should
         be overridden only by expert SPICE users.

     2)  This routine does not check the  validity of new parameter
         values supplied by the calling application.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)

Version

    SPICELIB Version 1.0.1, 09-JUL-2020 (JDR)

        Updated the header to comply with NAIF standard. Added
        complete example code.

    SPICELIB Version 1.0.0, 01-AUG-2016 (NJB)