Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 extern double log(), f__cabs(), atan2();
00005 VOID c_log(r, z) complex *r, *z;
00006 #else
00007 #undef abs
00008 #include "math.h"
00009 #ifdef __cplusplus
00010 extern "C" {
00011 #endif
00012 extern double f__cabs(double, double);
00013
00014 void c_log(complex *r, complex *z)
00015 #endif
00016 {
00017 double zi, zr;
00018 r->i = atan2(zi = z->i, zr = z->r);
00019 r->r = log( f__cabs(zr, zi) );
00020 }
00021 #ifdef __cplusplus
00022 }
00023 #endif