1 #include "v3p_f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6 #ifndef REAL
7 #define REAL double
8 #endif
9 
10 #ifdef KR_headers
11 double erfc();
erfc_(x)12 REAL erfc_(x) real *x;
13 #else
14 extern double erfc(double);
15 REAL erfc_(real *x)
16 #endif
17 {
18 return( erfc((double)*x) );
19 }
20 #ifdef __cplusplus
21 }
22 #endif
23