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