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