86 void palSubet (
double rc,
double dc,
double eq,
double *rm,
double *dm ) {
102 for (i=0; i<3; i++) {
103 v[
i] = f*v[
i] - a[
i];
double eraPdp(double a[3], double b[3])
void eraS2c(double theta, double phi, double c[3])
void palEtrms(double ep, double ev[3])
void eraC2s(double p[3], double *theta, double *phi)
void palSubet(double rc, double dc, double eq, double *rm, double *dm)