"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/GSL/INTERP/gsl_interp.pd" between
PDL-2.077.tar.gz and PDL-2.078.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

gsl_interp.pd  (PDL-2.077):gsl_interp.pd  (PDL-2.078)
skipping to change at line 194 skipping to change at line 194
sub eval { sub eval {
my $opt; my $opt;
my ($obj,$x) = @_; my ($obj,$x) = @_;
my $s_obj = $$obj[0]; my $s_obj = $$obj[0];
my $a_obj = $$obj[1]; my $a_obj = $$obj[1];
_eval_int($x,my $o=PDL->null,$$s_obj,$$a_obj); _eval_int($x,my $o=PDL->null,$$s_obj,$$a_obj);
$o; $o;
} }
EOF EOF
HandleBad => 1, HandleBad => 1,
BadCode => ' Code => '
if ($ISBAD($x())) { PDL_IF_BAD(if ($ISBAD($x())) {
$out() = $x(); $out() = $x();
} else { } else,) {
GSLERR(gsl_spline_eval_e,($COMP(spl), $x(), $COMP(acc), $P(out))); GSLERR(gsl_spline_eval_e,($COMP(spl), $x(), $COMP(acc), $P(out)));
} }
', ',
);
Code =>'
GSLERR(gsl_spline_eval_e,($COMP(spl), $x(), $COMP(acc), $P(out)));
');
pp_def('deriv', pp_def('deriv',
Pars => 'double x(); double [o] out();', Pars => 'double x(); double [o] out();',
OtherPars => 'gsl_spline *spl;gsl_interp_accel *acc;', OtherPars => 'gsl_spline *spl;gsl_interp_accel *acc;',
PMCode => <<'EOF', PMCode => <<'EOF',
sub deriv { sub deriv {
my ($obj,$x) = @_; my ($obj,$x) = @_;
my $s_obj = $$obj[0]; my $s_obj = $$obj[0];
my $a_obj = $$obj[1]; my $a_obj = $$obj[1];
_deriv_int($x,my $o=PDL->null,$$s_obj,$$a_obj); _deriv_int($x,my $o=PDL->null,$$s_obj,$$a_obj);
 End of changes. 3 change blocks. 
7 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)