1 /* 2 * "@(#)erf_.c 1.1" 3 */ 4 5 float erf_(x) 6 float *x; 7 { 8 double erf(); 9 10 return( erf(*x) ); 11 } 12