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