blob: 0e021032c0dd77391651e47a97badc5fdd902c7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/* carg.f -- translated by f2c (version 20000817).
*/
#include <math.h>
#include <complex.h>
double carg(complex z__)
{
/* System generated locals */
double ret_val;
/* april 1977 version. w. fullerton, c3, los alamos scientific lab. */
ret_val = (float)0.;
if (creal(z__) != (float)0. || cimag(z__) != (float)0.) {
ret_val = atan2(cimag(z__), creal(z__));
}
return ret_val;
} /* carg */
|
