void palMapqkz	(	double	rm,
		double	dm,
		double	amprms[21],
		double *	ra,
		double *	da
	)

Definition at line 97 of file palMapqkz.c.

References eraAnp(), eraC2s(), eraPdp(), eraRxp(), eraS2c(), and i.

Referenced by PointingModel::CalcPointingPos(), and t_mapqkz().

                             {

/* Local Variables: */
   int i;
   double ab1, abv[3], p[3], w, p1dv, p1dvp1, p2[3], p3[3];

/* Unpack scalar and vector parameters. */
   ab1 = amprms[11];
   for( i = 0; i < 3; i++ ) {
      abv[i] = amprms[i+8];
   }

/* Spherical to x,y,z. */
   eraS2c( rm, dm, p );

/* Aberration. */
   p1dv = eraPdp( p, abv );
   p1dvp1 = p1dv + 1.0;
   w = 1.0 + p1dv / ( ab1 + 1.0 );
   for( i = 0; i < 3; i++ ) {
      p2[i] = ( ( ab1 * p[i] ) + ( w * abv[i] ) ) / p1dvp1;
   }

/* Precession and nutation. */
   eraRxp( (double(*)[3]) &amprms[12], p2, p3 );

/* Geocentric apparent RA,dec. */
   eraC2s( p3, ra, da );
   *ra = eraAnp( *ra );
}

Here is the call graph for this function:

Here is the caller graph for this function: