79 void palGe50 (
double dl,
double db,
double * dr,
double * dd ) {
104 double rmat[3][3] = {
105 { -0.066988739415,-0.872755765852,-0.483538914632 },
106 { +0.492728466075,-0.450346958020,+0.744584633283 },
107 { -0.867600811151,-0.188374601723,+0.460199784784 }
110 double v1[3], v2[3], r, d, re, de;
void eraS2c(double theta, double phi, double c[3])
void palAddet(double rm, double dm, double eq, double *rc, double *dc)
void eraC2s(double p[3], double *theta, double *phi)
void eraTrxp(double r[3][3], double p[3], double trp[3])
void palGe50(double dl, double db, double *dr, double *dd)