FACT++  1.0
void eraApci13 ( double  date1,
double  date2,
eraASTROM astrom,
double *  eo 
)

Definition at line 3 of file apci13.c.

References eraApci(), eraBpn2xy(), eraEors(), eraEpv00(), eraPnm06a(), and eraS06().

Referenced by eraAtci13(), eraAtic13(), t_apci13(), t_atciq(), t_atciqn(), t_atciqz(), t_aticq(), and t_aticqn().

116 {
117  double ehpv[2][3], ebpv[2][3], r[3][3], x, y, s;
118 
119 /* Earth barycentric & heliocentric position/velocity (au, au/d). */
120  (void) eraEpv00(date1, date2, ehpv, ebpv);
121 
122 /* Form the equinox based BPN matrix, IAU 2006/2000A. */
123  eraPnm06a(date1, date2, r);
124 
125 /* Extract CIP X,Y. */
126  eraBpn2xy(r, &x, &y);
127 
128 /* Obtain CIO locator s. */
129  s = eraS06(date1, date2, x, y);
130 
131 /* Compute the star-independent astrometry parameters. */
132  eraApci(date1, date2, ebpv, ehpv[0], x, y, s, astrom);
133 
134 /* Equation of the origins. */
135  *eo = eraEors(r, s);
136 
137 /* Finished. */
138 
139 }
void eraPnm06a(double date1, double date2, double rnpb[3][3])
Definition: pnm06a.c:3
void eraBpn2xy(double rbpn[3][3], double *x, double *y)
Definition: bpn2xy.c:3
double eraS06(double date1, double date2, double x, double y)
Definition: s06.c:3
int eraEpv00(double date1, double date2, double pvh[2][3], double pvb[2][3])
Definition: epv00.c:3
void eraApci(double date1, double date2, double ebpv[2][3], double ehp[3], double x, double y, double s, eraASTROM *astrom)
Definition: apci.c:3
double eraEors(double rnpb[3][3], double s)
Definition: eors.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: