97 void palMapqkz (
double rm,
double dm,
double amprms[21],
double *ra,
102 double ab1, abv[3], p[3], w, p1dv, p1dvp1, p2[3], p3[3];
106 for( i = 0; i < 3; i++ ) {
107 abv[
i] = amprms[i+8];
116 w = 1.0 + p1dv / ( ab1 + 1.0 );
117 for( i = 0; i < 3; i++ ) {
118 p2[
i] = ( ( ab1 * p[
i] ) + ( w * abv[i] ) ) / p1dvp1;
122 eraRxp( (
double(*)[3]) &rms[12], p2, p3 );
double eraPdp(double a[3], double b[3])
void eraS2c(double theta, double phi, double c[3])
void eraC2s(double p[3], double *theta, double *phi)
void eraRxp(double r[3][3], double p[3], double rp[3])
void palMapqkz(double rm, double dm, double amprms[21], double *ra, double *da)