erf_ X
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: }