r_log.c 229 B

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