c_cos.c
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


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:15