110479Sdlw /* 2*22887Skre * Copyright (c) 1980 Regents of the University of California. 3*22887Skre * All rights reserved. The Berkeley software License Agreement 4*22887Skre * specifies the terms and conditions for redistribution. 5*22887Skre * 6*22887Skre * @(#)derfc_.c 5.1 06/07/85 710479Sdlw */ 810479Sdlw 910479Sdlw double derfc_(x) 1010479Sdlw double *x; 1110479Sdlw { 1210479Sdlw double erfc(); 1310479Sdlw 1410479Sdlw return( erfc(*x) ); 1510479Sdlw } 16