FACT++  1.0
double eraPas ( double  al,
double  ap,
double  bl,
double  bp 
)

Definition at line 3 of file pas.c.

Referenced by palDbear(), and t_pas().

32 {
33  double dl, x, y, pa;
34 
35  dl = bl - al;
36  y = sin(dl) * cos(bp);
37  x = sin(bp) * cos(ap) - cos(bp) * sin(ap) * cos(dl);
38  pa = ((x != 0.0) || (y != 0.0)) ? atan2(y, x) : 0.0;
39 
40  return pa;
41 
42 }

+ Here is the caller graph for this function: