FACT++  1.0
void palEvp ( double  date,
double  deqx,
double  dvb[3],
double  dpb[3],
double  dvh[3],
double  dph[3] 
)

Definition at line 81 of file palEvp.c.

References eraEpj2jd(), eraEpv00(), eraPmat06(), eraRxpv(), i, and PAL__SPD.

Referenced by palMappa(), and t_evp().

82  {
83 
84 /* Local Variables; */
85  int i;
86  double pvh[2][3], pvb[2][3], d1, d2, r[3][3];
87 
88 /* BCRS PV-vectors. */
89  eraEpv00 ( 2400000.5, date, pvh, pvb );
90 
91 /* Was precession to another equinox requested? */
92  if ( deqx > 0.0 ) {
93 
94 /* Yes: compute precession matrix from J2000.0 to deqx. */
95  eraEpj2jd ( deqx, &d1, &d2 );
96  eraPmat06 ( d1, d2, r );
97 
98 /* Rotate the PV-vectors. */
99  eraRxpv ( r, pvh, pvh );
100  eraRxpv ( r, pvb, pvb );
101  }
102 
103 /* Return the required vectors. */
104  for ( i = 0; i < 3; i++ ) {
105  dvh[i] = pvh[1][i] / PAL__SPD;
106  dvb[i] = pvb[1][i] / PAL__SPD;
107  dph[i] = pvh[0][i];
108  dpb[i] = pvb[0][i];
109  }
110 }
eraPmat06
void eraPmat06(double date1, double date2, double rbp[3][3])
Definition: pmat06.c:3
i
int i
Definition: db_dim_client.c:21
eraEpj2jd
void eraEpj2jd(double epj, double *djm0, double *djm)
Definition: epj2jd.c:3
eraEpv00
int eraEpv00(double date1, double date2, double pvh[2][3], double pvb[2][3])
Definition: epv00.c:3
PAL__SPD
static const double PAL__SPD
Definition: palmac.h:102
eraRxpv
void eraRxpv(double r[3][3], double pv[2][3], double rpv[2][3])
Definition: rxpv.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: