FACT++  1.0
void eraPn ( double  p[3],
double *  r,
double  u[3] 
)

Definition at line 3 of file pn.c.

References eraPm(), eraSxp(), and eraZp().

Referenced by eraApcs(), eraLdn(), eraPap(), eraPmpx(), eraPvstar(), eraStarpv(), palAmpqk(), palDvn(), palMappa(), palMapqk(), and t_pn().

34 {
35  double w;
36 
37 /* Obtain the modulus and test for zero. */
38  w = eraPm(p);
39  if (w == 0.0) {
40 
41  /* Null vector. */
42  eraZp(u);
43 
44  } else {
45 
46  /* Unit vector. */
47  eraSxp(1.0/w, p, u);
48  }
49 
50 /* Return the modulus. */
51  *r = w;
52 
53  return;
54 
55 }
eraPm
double eraPm(double p[3])
Definition: pm.c:3
eraSxp
void eraSxp(double s, double p[3], double sp[3])
Definition: sxp.c:3
eraZp
void eraZp(double p[3])
Definition: zp.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: