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