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