Home Explore Help
Sign In
SMusatov
/
ydb
mirror of https://github.com/ydb-platform/ydb.git
1
0
Fork 0
Files
Tree: 6bb28dfd11
Branches Tags
ydb
/
contrib
/
libs
/
libf2c
/
r_atn2.c

r_atn2.c 253 B
History Raw

12345678910111213141516171819 
  1. #include "f2c.h"
    2. 

  2. 

  3. #ifdef KR_headers
    4. 

  4. double atan2();
    5. 

  5. double r_atn2(x,y) real *x, *y;
    6. 

  6. #else
    7. 

  7. #undef abs
    8. 

  8. #include "math.h"
    9. 

  9. #ifdef __cplusplus
    10. 

  10. extern "C" {
    11. 

  11. #endif
    12. 

  12. double r_atn2(real *x, real *y)
    13. 

  13. #endif
    14. 

  14. {
    15. 

  15. return( atan2(*x,*y) );
    16. 

  16. }
    17. 

  17. #ifdef __cplusplus
    18. 

  18. }
    19. 

  19. #endif
    20.