/* * "@(#)erfc_.c 1.1" */ float erfc_(x) float *x; { double erfc(); return( erfc(*x) ); }