From a941f3b092e9ba36e657e28ac53ee731a55bf2c2 Mon Sep 17 00:00:00 2001 From: Ying-Chieh Liao Date: Fri, 22 Dec 2006 03:38:47 +0000 Subject: add linsmith 0.99.3 Smith charting program --- science/linsmith/files/carg.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 science/linsmith/files/carg.c (limited to 'science/linsmith/files/carg.c') 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 +#include + +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 */ + -- cgit v1.2.3