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