double eraSepp	(	double	a[3],
		double	b[3]
	)

Definition at line 3 of file sepp.c.

References eraPdp(), eraPm(), and eraPxp().

Referenced by eraSeps(), palDsepv(), and t_sepp().

{
   double axb[3], ss, cs, s;

/* Sine of angle between the vectors, multiplied by the two moduli. */
   eraPxp(a, b, axb);
   ss = eraPm(axb);

/* Cosine of the angle, multiplied by the two moduli. */
   cs = eraPdp(a, b);

/* The angle. */
   s = ((ss != 0.0) || (cs != 0.0)) ? atan2(ss, cs) : 0.0;

   return s;

}

Here is the call graph for this function:

Here is the caller graph for this function: