/* 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 */