4 %typemap
(in
) double
* (double dvalue
) {
7 croak
("Math::GSL::Sort : $input is not a reference!\n");
10 if
((!SvNOK
(tempsv
)) && (!SvIOK(tempsv))) {
11 croak
("Math::GSL::Sort : $input is not a reference to number!\n");
13 dvalue
= SvNV
(tempsv
);
16 %typemap
(argout
) double
* {
18 tempsv
= SvRV
($input
);
19 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
52 our $GSL_NAN
= q
{nan
};
53 #our $GSL_POSZERO
= 0.0;
54 #our $GSL_NEGZERO
= -1*0.0;
56 %EXPORT_TAGS
= ( all
=> [ @EXPORT_OK
] );