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

Definition at line 3 of file h2fk5.c.

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

Referenced by t_h2fk5().

61 {
62  int i;
63  double pvh[2][3], r5h[3][3], s5h[3], sh[3], wxp[3], vv[3], pv5[2][3];
64 
65 /* Hipparcos barycentric position/velocity pv-vector (normalized). */
66  eraStarpv(rh, dh, drh, ddh, pxh, rvh, pvh);
67 
68 /* FK5 to Hipparcos orientation matrix and spin vector. */
69  eraFk5hip(r5h, s5h);
70 
71 /* Make spin units per day instead of per year. */
72  for ( i = 0; i < 3; s5h[i++] /= 365.25 );
73 
74 /* Orient the spin into the Hipparcos system. */
75  eraRxp(r5h, s5h, sh);
76 
77 /* De-orient the Hipparcos position into the FK5 system. */
78  eraTrxp(r5h, pvh[0], pv5[0]);
79 
80 /* Apply spin to the position giving an extra space motion component. */
81  eraPxp(pvh[0], sh, wxp);
82 
83 /* Subtract this component from the Hipparcos space motion. */
84  eraPmp(pvh[1], wxp, vv);
85 
86 /* De-orient the Hipparcos space motion into the FK5 system. */
87  eraTrxp(r5h, vv, pv5[1]);
88 
89 /* FK5 pv-vector to spherical. */
90  eraPvstar(pv5, r5, d5, dr5, dd5, px5, rv5);
91 
92  return;
93 
94 }
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
eraTrxp
void eraTrxp(double r[3][3], double p[3], double trp[3])
Definition: trxp.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
eraPmp
void eraPmp(double a[3], double b[3], double amb[3])
Definition: pmp.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: