void eraRxp	(	double	r[3][3],
		double	p[3],
		double	rp[3]
	)

Definition at line 3 of file rxp.c.

References eraCp(), and i.

Referenced by eraAtciq(), eraAtciqn(), eraAtciqz(), eraFk52h(), eraFk5hz(), eraH2fk5(), eraHfk5z(), eraIcrs2g(), eraRxpv(), eraTrxp(), palDmxv(), palEqecl(), palEqgal(), palGalsup(), palMapqk(), palMapqkz(), palPertue(), palPlantu(), palPreces(), palRdplan(), and t_rxp().

{
   double w, wrp[3];
   int i, j;

/* Matrix r * vector p. */
   for (j = 0; j < 3; j++) {
       w = 0.0;
       for (i = 0; i < 3; i++) {
           w += r[j][i] * p[i];
       }
       wrp[j] = w;
   }

/* Return the result. */
   eraCp(wrp, rp);

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: