FACT++  1.0
void eraC2ixys ( double  x,
double  y,
double  s,
double  rc2i[3][3] 
)

Definition at line 3 of file c2ixys.c.

References eraIr(), eraRy(), and eraRz().

Referenced by eraApci(), eraApco(), eraC2i06a(), eraC2ixy(), and t_c2ixys().

53 {
54  double r2, e, d;
55 
56 
57 /* Obtain the spherical angles E and d. */
58  r2 = x*x + y*y;
59  e = (r2 > 0.0) ? atan2(y, x) : 0.0;
60  d = atan(sqrt(r2 / (1.0 - r2)));
61 
62 /* Form the matrix. */
63  eraIr(rc2i);
64  eraRz(e, rc2i);
65  eraRy(d, rc2i);
66  eraRz(-(e+s), rc2i);
67 
68  return;
69 
70 }
eraIr
void eraIr(double r[3][3])
Definition: ir.c:3
eraRy
void eraRy(double theta, double r[3][3])
Definition: ry.c:3
eraRz
void eraRz(double psi, double r[3][3])
Definition: rz.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: