#include "f2c.h" #undef abs #include double d_asin (doublereal * x) { return (asin (*x)); }