126 void palPlantu (
double date,
double elong,
double phi,
const double u[13],
127 double *ra,
double *dec,
double *r,
int *jstat ) {
130 double dvb[3], dpb[3], vsg[6], vsp[6], v[6], rmat[3][3],
131 vgp[6], stl, vgo[6], dx, dy, dz, d, tl;
143 palEpv( date, vsg, &(vsg[3]), dpb, dvb );
144 for (i=3; i < 6; i++) {
152 for (i=0; i<6; i++) {
153 v[
i] = vsp[
i] - vsg[
i];
159 eraRxp( rmat, &(v[3]), &(vgp[3]) );
166 for (i=0; i<6; i++) {
167 v[
i] = vgp[
i] - vgo[
i];
174 d = sqrt( dx*dx + dy*dy + dz*dz );
180 for (i=0; i<3; i++) {
static const double PAL__CR
void palPrenut(double epoch, double date, double rmatpn[3][3])
double palEpj(double date)
double palDt(double epoch)
void palEpv(double date, double ph[3], double vh[3], double pb[3], double vb[3])
void eraC2s(double p[3], double *theta, double *phi)
void eraRxp(double r[3][3], double p[3], double rp[3])
void palPlantu(double date, double elong, double phi, const double u[13], double *ra, double *dec, double *r, int *jstat)
void palPvobs(double p, double h, double stl, double pv[6])
static const double PAL__SPD
double palGmst(double ut1)
void palUe2pv(double date, double u[13], double pv[], int *jstat)