110482Sdlw /* 2*22890Skre * Copyright (c) 1980 Regents of the University of California. 3*22890Skre * All rights reserved. The Berkeley software License Agreement 4*22890Skre * specifies the terms and conditions for redistribution. 5*22890Skre * 6*22890Skre * @(#)erf_.c 5.1 06/07/85 710482Sdlw */ 810482Sdlw 910482Sdlw float erf_(x) 1010482Sdlw float *x; 1110482Sdlw { 1210482Sdlw double erf(); 1310482Sdlw 1410482Sdlw return( erf(*x) ); 1510482Sdlw } 16