1 #include "FLA_f2c.h" 2 3 #ifdef __cplusplus 4 extern "C" { 5 #endif 6 r_asin(real * x)7 double r_asin(real *x) 8 { 9 return( asin(*x) ); 10 } d_asin(doublereal * x)11 double d_asin(doublereal *x) 12 { 13 return( asin(*x) ); 14 } 15 /* 16 void c_asin(complex *r, complex *z) 17 { 18 double _Complex ret_val = casin(*z); 19 r->r = creal(ret_val); 20 r->i = cimag(ret_val); 21 } 22 void z_asin(doublecomplex *r, doublecomplex *z) 23 { 24 double _Complex ret_val = casin(*z); 25 r->r = creal(ret_val); 26 r->i = cimag(ret_val); 27 } 28 */ 29 #ifdef __cplusplus 30 } 31 #endif 32