3 %typemap
(in
) double
* (double dvalue
) {
6 croak
("Math::GSL::Sort : $input is not a reference!\n");
9 if
((!SvNOK
(tempsv
)) && (!SvIOK(tempsv))) {
10 croak
("Math::GSL::Sort : $input is not a reference to number!\n");
12 dvalue
= SvNV
(tempsv
);
15 %typemap
(argout
) double
* {
17 tempsv
= SvRV
($input
);
18 sv_setnv
(tempsv
, *$
1);
24 #include
"/usr/local/include/gsl/gsl_nan.h"
25 #include
"/usr/local/include/gsl/gsl_poly.h"
26 #include
"/usr/local/include/gsl/gsl_complex.h"
29 %include
"/usr/local/include/gsl/gsl_nan.h"
30 %include
"/usr/local/include/gsl/gsl_poly.h"
31 %include
"/usr/local/include/gsl/gsl_complex.h"
39 gsl_complex_poly_complex_eval
43 gsl_poly_solve_quadratic
44 gsl_poly_complex_solve_quadratic
46 gsl_poly_complex_solve_cubic
47 gsl_poly_complex_workspace_alloc
48 gsl_poly_complex_workspace_free
49 gsl_poly_complex_solve
50 $GSL_POSZERO $GSL_NEGZERO $GSL_NAN
53 %EXPORT_TAGS
= ( all
=> [ @EXPORT_OK
] );