Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
z_exp.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 double exp(), cos(), sin();
00005 VOID z_exp(r, z) doublecomplex *r, *z;
00006 #else
00007 #undef abs
00008 #include "mathh.h"
00009 void z_exp(doublecomplex *r, doublecomplex *z)
00010 #endif
00011 {
00012 double expx;
00013
00014 expx = exp(z->r);
00015 r->r = expx * cos(z->i);
00016 r->i = expx * sin(z->i);
00017 }
