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