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