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