FACT++  1.0
void eraFk52h ( double  r5,
double  d5,
double  dr5,
double  dd5,
double  px5,
double  rv5,
double *  rh,
double *  dh,
double *  drh,
double *  ddh,
double *  pxh,
double *  rvh 
)

Definition at line 3 of file fk52h.c.

References eraFk5hip(), eraPpp(), eraPvstar(), eraPxp(), eraRxp(), eraStarpv(), and i.

Referenced by t_fk52h().

59 {
60  int i;
61  double pv5[2][3], r5h[3][3], s5h[3], wxp[3], vv[3], pvh[2][3];
62 
63 /* FK5 barycentric position/velocity pv-vector (normalized). */
64  eraStarpv(r5, d5, dr5, dd5, px5, rv5, pv5);
65 
66 /* FK5 to Hipparcos orientation matrix and spin vector. */
67  eraFk5hip(r5h, s5h);
68 
69 /* Make spin units per day instead of per year. */
70  for ( i = 0; i < 3; s5h[i++] /= 365.25 );
71 
72 /* Orient the FK5 position into the Hipparcos system. */
73  eraRxp(r5h, pv5[0], pvh[0]);
74 
75 /* Apply spin to the position giving an extra space motion component. */
76  eraPxp(pv5[0], s5h, wxp);
77 
78 /* Add this component to the FK5 space motion. */
79  eraPpp(wxp, pv5[1], vv);
80 
81 /* Orient the FK5 space motion into the Hipparcos system. */
82  eraRxp(r5h, vv, pvh[1]);
83 
84 /* Hipparcos pv-vector to spherical. */
85  eraPvstar(pvh, rh, dh, drh, ddh, pxh, rvh);
86 
87  return;
88 
89 }
i
int i
Definition: db_dim_client.c:21
eraFk5hip
void eraFk5hip(double r5h[3][3], double s5h[3])
Definition: fk5hip.c:3
eraPxp
void eraPxp(double a[3], double b[3], double axb[3])
Definition: pxp.c:3
eraRxp
void eraRxp(double r[3][3], double p[3], double rp[3])
Definition: rxp.c:3
eraPpp
void eraPpp(double a[3], double b[3], double apb[3])
Definition: ppp.c:3
eraPvstar
int eraPvstar(double pv[2][3], double *ra, double *dec, double *pmr, double *pmd, double *px, double *rv)
Definition: pvstar.c:3
eraStarpv
int eraStarpv(double ra, double dec, double pmr, double pmd, double px, double rv, double pv[2][3])
Definition: starpv.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: