FACT++  1.0
void eraRz ( double  psi,
double  r[3][3] 
)

Definition at line 3 of file rz.c.

Referenced by eraBp00(), eraC2ixys(), eraC2tcio(), eraC2teqx(), eraFw2m(), eraNumat(), eraPb06(), eraPmat76(), eraPom00(), palDeuler(), palPrenut(), and t_rz().

34 {
35  double s, c, a00, a01, a02, a10, a11, a12;
36 
37  s = sin(psi);
38  c = cos(psi);
39 
40  a00 = c*r[0][0] + s*r[1][0];
41  a01 = c*r[0][1] + s*r[1][1];
42  a02 = c*r[0][2] + s*r[1][2];
43  a10 = - s*r[0][0] + c*r[1][0];
44  a11 = - s*r[0][1] + c*r[1][1];
45  a12 = - s*r[0][2] + c*r[1][2];
46 
47  r[0][0] = a00;
48  r[0][1] = a01;
49  r[0][2] = a02;
50  r[1][0] = a10;
51  r[1][1] = a11;
52  r[1][2] = a12;
53 
54  return;
55 
56 }

+ Here is the caller graph for this function: