1 #include <math.h> 2 3 extern double erfc (double); 4 derfc_(double * x)5 double derfc_ (double * x) 6 { 7 return (erfc (*x)); 8 } 9 erfc_(double * x)10 double erfc_ (double * x) 11 { 12 return (erfc (*x)); 13 } 14 /* $Id$ */ 15