Home Explore Help
Sign In
SMusatov
/
ydb
mirror of https://github.com/ydb-platform/ydb.git
1
0
Fork 0
Files
Branch: mergelibs-240403-0851
Branches Tags
ydb
/
contrib
/
libs
/
libf2c
/
z_abs.c

z_abs.c 268 B
Permalink History Raw

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

  2. #ifdef __cplusplus
    3. 

  3. extern "C" {
    4. 

  4. #endif
    5. 

  5. 

  6. #ifdef KR_headers
    7. 

  7. double f__cabs();
    8. 

  8. double z_abs(z) doublecomplex *z;
    9. 

  9. #else
    10. 

  10. double f__cabs(double, double);
    11. 

  11. double z_abs(doublecomplex *z)
    12. 

  12. #endif
    13. 

  13. {
    14. 

  14. return( f__cabs( z->r, z->i ) );
    15. 

  15. }
    16. 

  16. #ifdef __cplusplus
    17. 

  17. }
    18. 

  18. #endif
    19.