FACT++  1.0
double eraGmst00 ( double  uta,
double  utb,
double  tta,
double  ttb 
)

Definition at line 3 of file gmst00.c.

References eraAnp(), eraEra00(), ERFA_DAS2R, ERFA_DJ00, ERFA_DJC, and t.

Referenced by eraC2tpe(), eraGst00a(), eraGst00b(), and t_gmst00().

74 {
75  double t, gmst;
76 
77 /* TT Julian centuries since J2000.0. */
78  t = ((tta - ERFA_DJ00) + ttb) / ERFA_DJC;
79 
80 /* Greenwich Mean Sidereal Time, IAU 2000. */
81  gmst = eraAnp(eraEra00(uta, utb) +
82  ( 0.014506 +
83  ( 4612.15739966 +
84  ( 1.39667721 +
85  ( -0.00009344 +
86  ( 0.00001882 )
87  * t) * t) * t) * t) * ERFA_DAS2R);
88 
89  return gmst;
90 
91 }
#define ERFA_DJ00
Definition: erfam.h:87
#define ERFA_DAS2R
Definition: erfam.h:60
double eraEra00(double dj1, double dj2)
Definition: era00.c:3
#define ERFA_DJC
Definition: erfam.h:81
TT t
Definition: test_client.c:26
double eraAnp(double a)
Definition: anp.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: