1 #include "FLA_f2c.h"
2 
3 #ifdef __cplusplus
4 extern "C" {
5 #endif
6 
r_cos(real * x)7     double r_cos(real *x)
8     {
9         return( cos(*x) );
10     }
d_cos(doublereal * x)11     double d_cos(doublereal *x)
12     {
13         return( cos(*x) );
14     }
c_cos(complex * r,complex * z)15     void c_cos(complex *r, complex *z)
16     {
17         double _Complex ret_val = ccos(z->r + I*z->i);
18         r->r = creal(ret_val);
19         r->i = cimag(ret_val);
20     }
z_cos(doublecomplex * r,doublecomplex * z)21     void z_cos(doublecomplex *r, doublecomplex *z)
22     {
23         double _Complex ret_val = ccos(z->r + I*z->i);
24         r->r = creal(ret_val);
25         r->i = cimag(ret_val);
26     }
27 
28 #ifdef __cplusplus
29 }
30 #endif
31