1 files changed, 20 insertions, 0 deletions

diff --git a/science/linsmith/files/carg.c b/science/linsmith/files/carg.c
new file mode 100644
index 000000000000..0e021032c0dd
--- /dev/null
+++ b/science/linsmith/files/carg.c
@@ -0,0 +1,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 */
+