Home Explore Help
Sign In
SMusatov
/
ydb
mirror of https://github.com/ydb-platform/ydb.git
1
0
Fork 0
Files
Branch: readme-links-update
Branches Tags
ydb
/
contrib
/
libs
/
libf2c
/
erf_.c

erf_.c 270 B
Permalink History Raw

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

  2. #ifdef __cplusplus
    3. 

  3. extern "C" {
    4. 

  4. #endif
    5. 

  5. 

  6. #ifndef REAL
    7. 

  7. #define REAL double
    8. 

  8. #endif
    9. 

  9. 

  10. #ifdef KR_headers
    11. 

  11. double erf();
    12. 

  12. REAL erf_(x) real *x;
    13. 

  13. #else
    14. 

  14. extern double erf(double);
    15. 

  15. REAL erf_(real *x)
    16. 

  16. #endif
    17. 

  17. {
    18. 

  18. return( erf((double)*x) );
    19. 

  19. }
    20. 

  20. #ifdef __cplusplus
    21. 

  21. }
    22. 

  22. #endif
    23.