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 extern double erfc();
00011
00012 double derfc_(x) doublereal *x;
00013 #else
00014 extern double erfc(double);
00015
00016 double derfc_(doublereal *x)
00017 #endif
00018 {
00019 #ifdef _MSC_VER
00020 fprintf(stderr,"libf2c: No erf\n");
00021 return (0);
00022 #else
00023 return( erfc(*x) );
00024 #endif
00025 }
00026 #ifdef __cplusplus
00027 }
00028 #endif
