20 lines
419 B
C
20 lines
419 B
C
/* 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 */
|
|
|