d_atn2.c 271 B

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