Doxygen Source Code Documentation
z_log.c
Go to the documentation of this file.00001 #include "f2c.h" 00002 00003 #ifdef KR_headers 00004 double log(), f__cabs(), atan2(); 00005 VOID z_log(r, z) doublecomplex *r, *z; 00006 #else 00007 #undef abs 00008 #include "mathh.h" 00009 extern double f__cabs(double, double); 00010 void z_log(doublecomplex *r, doublecomplex *z) 00011 #endif 00012 { 00013 00014 r->i = atan2(z->i, z->r); 00015 r->r = log( f__cabs( z->r, z->i ) ); 00016 }