|
|
1.1 root 1: /*
2: * "@(#)derf_.c 1.1"
3: */
4:
5: double derf_(x)
6: double *x;
7: {
8: double erf();
9:
10: return( erf(*x) );
11: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.