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