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