void eraRx	(	double	phi,
		double	r[3][3]
	)

Definition at line 3 of file rx.c.

Referenced by eraBp00(), eraFw2m(), eraNumat(), eraPom00(), palDeuler(), palPrenut(), and t_rx().

{
   double s, c, a10, a11, a12, a20, a21, a22;

   s = sin(phi);
   c = cos(phi);

   a10 =   c*r[1][0] + s*r[2][0];
   a11 =   c*r[1][1] + s*r[2][1];
   a12 =   c*r[1][2] + s*r[2][2];
   a20 = - s*r[1][0] + c*r[2][0];
   a21 = - s*r[1][1] + c*r[2][1];
   a22 = - s*r[1][2] + c*r[2][2];

   r[1][0] = a10;
   r[1][1] = a11;
   r[1][2] = a12;
   r[2][0] = a20;
   r[2][1] = a21;
   r[2][2] = a22;

   return;

}

Here is the caller graph for this function: