derf_.c 239 B

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