void eraRxr	(	double	a[3][3],
		double	b[3][3],
		double	atb[3][3]
	)

Definition at line 3 of file rxr.c.

References eraCr(), and i.

Referenced by eraBp00(), eraBp06(), eraC2tcio(), eraC2teqx(), eraHfk5z(), eraPn00(), eraPn06(), eraPnm80(), palDmxm(), palPrec(), palPrenut(), and t_rxr().

{
   int i, j, k;
   double w, wm[3][3];

   for (i = 0; i < 3; i++) {
      for (j = 0; j < 3; j++) {
         w = 0.0;
         for (k = 0; k < 3; k++) {
            w +=  a[i][k] * b[k][j];
         }
         wm[i][j] = w;
      }
   }
   eraCr(wm, atb);

   return;

}

Here is the call graph for this function:

Here is the caller graph for this function: