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