d_acos.c 245 B

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