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


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:56:16