110483Sdlw /* 2*22891Skre * Copyright (c) 1980 Regents of the University of California. 3*22891Skre * All rights reserved. The Berkeley software License Agreement 4*22891Skre * specifies the terms and conditions for redistribution. 5*22891Skre * 6*22891Skre * @(#)erfc_.c 5.1 06/07/85 710483Sdlw */ 810483Sdlw 910483Sdlw float erfc_(x) 1010483Sdlw float *x; 1110483Sdlw { 1210483Sdlw double erfc(); 1310483Sdlw 1410483Sdlw return( erfc(*x) ); 1510483Sdlw } 16