1 #include "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 erf(); erf_(x)12REAL erf_(x) real *x; 13 #else 14 extern double erf(double); 15 REAL erf_(real *x) 16 #endif 17 { 18 return( erf((double)*x) ); 19 } 20 #ifdef __cplusplus 21 } 22 #endif 23