r_tanh.c 233 B

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