summaryrefslogtreecommitdiff
path: root/comms/nec2c/files/carg.c
diff options
context:
space:
mode:
Diffstat (limited to 'comms/nec2c/files/carg.c')
-rw-r--r--comms/nec2c/files/carg.c20
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 */
-