Procedure

     DPR ( Degrees per radian )

     DOUBLE PRECISION FUNCTION DPR ( )

Abstract

     Return the number of degrees per radian.

Required_Reading

     None.

Keywords

     CONSTANTS

Declarations

    None.

Brief_I/O

     The function returns the number of degrees per radian.

Detailed_Input

     None.

Detailed_Output

     The function returns the number of degrees per radian: 180/pi.
     The value of pi is determined by the ACOS function. That is,

           DPR = 180.D0 / ACOS ( -1.D0 )

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     The first time the function is referenced, the value is computed
     as shown above. The value is saved, and returned directly upon
     subsequent reference.

Examples

     The code fragment below illustrates the use of DPR.

        C
        C     Convert all angles to degrees for output.
        C
              CLOCK = CLOCK * DPR()
              CONE  = CONE  * DPR()
              TWIST = TWIST * DPR()

     or equivalently,

        C
        C     Convert all input angles to radians.
        C
              CALL VPACK  ( CLOCK, CONE, CCTWIST, ALBTGAM )
              CALL VSCL   ( DPR(), ALBTGAM, ALBTGAM )
              CALL VUPACK ( ALBTGAM, CLOCK, CONE, CCTWIST )

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 1.0.2, 08-JUL-2020 (JDR)

        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 (WLT) (IMU)