1consts.lis                                             2008 September 30
2
3
4SOFA Fortran constants
5----------------------
6
7These must be used exactly as presented below.
8
9*  Pi
10      DOUBLE PRECISION DPI
11      PARAMETER ( DPI = 3.141592653589793238462643D0 )
12
13*  2Pi
14      DOUBLE PRECISION D2PI
15      PARAMETER ( D2PI = 6.283185307179586476925287D0 )
16
17*  Radians to hours
18      DOUBLE PRECISION DR2H
19      PARAMETER ( DR2H = 3.819718634205488058453210D0 )
20
21*  Radians to seconds
22      DOUBLE PRECISION DR2S
23      PARAMETER ( DR2S = 13750.98708313975701043156D0 )
24
25*  Radians to degrees
26      DOUBLE PRECISION DR2D
27      PARAMETER ( DR2D = 57.29577951308232087679815D0 )
28
29*  Radians to arc seconds
30      DOUBLE PRECISION DR2AS
31      PARAMETER ( DR2AS = 206264.8062470963551564734D0 )
32
33*  Hours to radians
34      DOUBLE PRECISION DH2R
35      PARAMETER ( DH2R = 0.2617993877991494365385536D0 )
36
37*  Seconds to radians
38      DOUBLE PRECISION DS2R
39      PARAMETER ( DS2R = 7.272205216643039903848712D-5 )
40
41*  Degrees to radians
42      DOUBLE PRECISION DD2R
43      PARAMETER ( DD2R = 1.745329251994329576923691D-2 )
44
45*  Arc seconds to radians
46      DOUBLE PRECISION DAS2R
47      PARAMETER ( DAS2R = 4.848136811095359935899141D-6 )
48
49
50SOFA C constants
51----------------
52
53The constants used by the C version of SOFA are defined in the header
54file sofam.h.
55