Procedure

     DSKGTL ( DSK, get tolerance )

     ENTRY DSKGTL ( KEYWRD, DPVAL )

Abstract

     Retrieve 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 retrieve.
     DPVAL      O   Value of parameter.

Detailed_Input

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

Detailed_Output

     DPVAL    is the value of the parameter specified by KEYWRD.

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.

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 and display the DSK type 2 plate expansion fraction.


        Example code begins here.


              PROGRAM DSKGTL_EX1
              IMPLICIT NONE

        C
        C     Include files
        C
              INCLUDE 'dsktol.inc'

        C
        C     Local variables
        C
              DOUBLE PRECISION      DPVAL

              CALL DSKGTL ( KEYXFR, DPVAL )

              WRITE(*,*) 'Plate expansion fraction = ', DPVAL

              END


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


         Plate expansion fraction =    1.0000000000000000E-010

Restrictions

     None.

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)