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