1 #include "f2c.h" 2 3 #ifdef KR_headers 4 extern double erfc(); 5 derfc_(x)6 double derfc_(x) doublereal *x; 7 #else 8 extern double erfc(double); 9 10 double derfc_(doublereal *x) 11 #endif 12 { 13 return( erfc(*x) ); 14 } 15