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