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