00001 #include "f2c.h" 00002 #ifdef __cplusplus 00003 extern "C" { 00004 #endif 00005 00006 #ifdef KR_headers 00007 double erf(); 00008 double derf_(x) doublereal *x; 00009 #else 00010 extern double erf(double); 00011 double derf_(doublereal *x) 00012 #endif 00013 { 00014 return( erf(*x) ); 00015 } 00016 #ifdef __cplusplus 00017 } 00018 #endif