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)12REAL 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