|
|
1.1 ! root 1: #include "f2c.h" ! 2: ! 3: #ifdef KR_headers ! 4: double erf(); ! 5: double derf_(x) doublereal *x; ! 6: #else ! 7: extern double erf(double); ! 8: double derf_(doublereal *x) ! 9: #endif ! 10: { ! 11: return( erf(*x) ); ! 12: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.