d_sinh.c 245 B

12345678910111213141516171819
  1. #include "f2c.h"
  2. #ifdef KR_headers
  3. double sinh();
  4. double d_sinh(x) doublereal *x;
  5. #else
  6. #undef abs
  7. #include "math.h"
  8. #ifdef __cplusplus
  9. extern "C" {
  10. #endif
  11. double d_sinh(doublereal *x)
  12. #endif
  13. {
  14. return( sinh(*x) );
  15. }
  16. #ifdef __cplusplus
  17. }
  18. #endif