1 #include "f2c.h" 2 3 #ifdef KR_headers 4 double exp(); 5 double d_exp(x) doublereal *x; 6 #else 7 #undef abs 8 #include "math.h" 9 double d_exp(doublereal *x) 10 #endif 11 { 12 return( exp(*x) ); 13 } 14