1 #include "f2c.h"
2 #ifdef __cplusplus
3 extern "C" {
4 #endif
5 
6 #ifndef REAL
7 #define REAL double
8 #endif
9 
10 #ifdef KR_headers
11 double erf();
erf_(x)12 REAL erf_(x) real *x;
13 #else
14 extern double erf(double);
15 REAL erf_(real *x)
16 #endif
17 {
18 return( erf((double)*x) );
19 }
20 #ifdef __cplusplus
21 }
22 #endif
23