FACT++  1.0
double eraObl06 ( double  date1,
double  date2 
)

Definition at line 3 of file obl06.c.

References ERFA_DAS2R, ERFA_DJ00, ERFA_DJC, and t.

Referenced by eraNum06a(), eraP06e(), eraPfw06(), palEcmat(), palNutc(), and t_obl06().

48 {
49  double t, eps0;
50 
51 /* Interval between fundamental date J2000.0 and given date (JC). */
52  t = ((date1 - ERFA_DJ00) + date2) / ERFA_DJC;
53 
54 /* Mean obliquity. */
55  eps0 = (84381.406 +
56  (-46.836769 +
57  ( -0.0001831 +
58  ( 0.00200340 +
59  ( -0.000000576 +
60  ( -0.0000000434) * t) * t) * t) * t) * t) * ERFA_DAS2R;
61 
62  return eps0;
63 
64 }
#define ERFA_DJ00
Definition: erfam.h:87
#define ERFA_DAS2R
Definition: erfam.h:60
#define ERFA_DJC
Definition: erfam.h:81
TT t
Definition: test_client.c:26

+ Here is the caller graph for this function: