diff options
Diffstat (limited to 'comms/nec2c/files/carg.c')
-rw-r--r-- | comms/nec2c/files/carg.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/comms/nec2c/files/carg.c b/comms/nec2c/files/carg.c deleted file mode 100644 index 0e021032c0dd..000000000000 --- a/comms/nec2c/files/carg.c +++ /dev/null @@ -1,20 +0,0 @@ -/* 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 */ - |