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