00001 #include "f2c.h"
00002 #ifdef _MSC_VER
00003 #include <stdio.h>
00004 #endif
00005 #ifdef __cplusplus
00006 extern "C" {
00007 #endif
00008
00009 #ifdef KR_headers
00010 double erf();
00011 double derf_(x) doublereal *x;
00012 #else
00013 extern double erf(double);
00014 double derf_(doublereal *x)
00015 #endif
00016 {
00017 #ifdef _MSC_VER
00018 fprintf(stderr,"libf2c : No erf \n");
00019 return(0);
00020 #else
00021 return( erf(*x) );
00022 #endif
00023 }
00024 #ifdef __cplusplus
00025 }
00026 #endif
