1 #include "FLA_f2c.h" 2 3 #ifdef __cplusplus 4 extern "C" { 5 #endif 6 r_cosh(real * x)7 double r_cosh(real *x) 8 { 9 return( cosh(*x) ); 10 } d_cosh(doublereal * x)11 double d_cosh(doublereal *x) 12 { 13 return( cosh(*x) ); 14 } 15 16 #ifdef __cplusplus 17 } 18 #endif 19