00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifndef REAL 00007 #define REAL double 00008 #endif 00009 00010 #ifdef KR_headers 00011 double erf(); 00012 REAL erf_(x) real *x; 00013 #else 00014 extern double erf(double); 00015 REAL erf_(real *x) 00016 #endif 00017 { 00018 return( erf((double)*x) ); 00019 } 00020 #ifdef __cplusplus 00021 } 00022 #endif