1 #include "f2c.h" 2 3 #undef abs 4 #include <math.h> 5 double d_asin(doublereal * x)6 d_asin (doublereal * x) 7 { 8 return (asin (*x)); 9 } 10