|
|
a9c6c3a |
Index: PDL-2.4.1/Basic/Core/Dev.pm
|
|
|
a9c6c3a |
===================================================================
|
|
|
a9c6c3a |
--- PDL-2.4.1.orig/Basic/Core/Dev.pm 2004-12-12 00:07:52.010537392 +0100
|
|
|
a9c6c3a |
+++ PDL-2.4.1/Basic/Core/Dev.pm 2004-12-12 00:09:07.904999680 +0100
|
|
|
a9c6c3a |
@@ -203,14 +203,14 @@
|
|
|
a9c6c3a |
#
|
|
|
a9c6c3a |
# case PDL_L:
|
|
|
a9c6c3a |
# {
|
|
|
a9c6c3a |
-# long *xx = x.data;
|
|
|
a9c6c3a |
+# PDL_Long *xx = x.data;
|
|
|
a9c6c3a |
# for(i=0; i
|
|
|
a9c6c3a |
# xx[i] = i/nvals;
|
|
|
a9c6c3a |
# }break;
|
|
|
a9c6c3a |
#
|
|
|
a9c6c3a |
# case PDL_F:
|
|
|
a9c6c3a |
# {
|
|
|
a9c6c3a |
-# float *xx = x.data;
|
|
|
a9c6c3a |
+# PDL_Float *xx = x.data;
|
|
|
a9c6c3a |
#
|
|
|
a9c6c3a |
# .... etc. .....
|
|
|
a9c6c3a |
#
|
|
|
a9c6c3a |
Index: PDL-2.4.1/Basic/Slices/slices.pd
|
|
|
a9c6c3a |
===================================================================
|
|
|
a9c6c3a |
--- PDL-2.4.1.orig/Basic/Slices/slices.pd 2004-12-09 00:09:45.000000000 +0100
|
|
|
a9c6c3a |
+++ PDL-2.4.1/Basic/Slices/slices.pd 2004-12-12 00:01:53.000000000 +0100
|
|
|
a9c6c3a |
@@ -747,12 +747,12 @@
|
|
|
a9c6c3a |
/* Copy the sizes, or die if they're the wrong shape */
|
|
|
a9c6c3a |
if(size_pdl->nvals == 1)
|
|
|
a9c6c3a |
for(i=0;i<$COMP(rdim);i++)
|
|
|
a9c6c3a |
- $COMP(sizes[i]) = *((long *)(size_pdl->data));
|
|
|
a9c6c3a |
+ $COMP(sizes[i]) = *((PDL_Long *)(size_pdl->data));
|
|
|
a9c6c3a |
|
|
|
a9c6c3a |
else if( size_pdl->nvals <= $COMP(rdim) &&size_pdl->ndims == 1)
|
|
|
a9c6c3a |
for(i=0;i<$COMP(rdim);i++)
|
|
|
a9c6c3a |
$COMP(sizes[i]) = ( (i < size_pdl->nvals) ?
|
|
|
a9c6c3a |
- ((long *)(size_pdl->data))[i] :
|
|
|
a9c6c3a |
+ ((PDL_Long *)(size_pdl->data))[i] :
|
|
|
a9c6c3a |
0
|
|
|
a9c6c3a |
);
|
|
|
a9c6c3a |
else {
|
|
|
a9c6c3a |
@@ -795,7 +795,7 @@
|
|
|
a9c6c3a |
/* bad we don't have access to the parent piddle here... */
|
|
|
a9c6c3a |
|
|
|
a9c6c3a |
for(j=0;j<$COMP(rdim);j++)
|
|
|
a9c6c3a |
- *(cptr++) = ((long *)(ind_pdl->data))[ioff + ind_pdl->dimincs[0] * j];
|
|
|
a9c6c3a |
+ *(cptr++) = ((PDL_Long *)(ind_pdl->data))[ioff + ind_pdl->dimincs[0] * j];
|
|
|
a9c6c3a |
|
|
|
a9c6c3a |
/* Increment the iterator -- the test increments, the body carries. */
|
|
|
a9c6c3a |
for(k=0; k<$COMP(itdim) && (++(iter[k]))>=($COMP(itdims)[k]) ;k++)
|
|
|
680c4b6 |
Index: PDL-2.4.1/Basic/Core/Core.xs.PL
|
|
|
680c4b6 |
===================================================================
|
|
|
680c4b6 |
--- PDL-2.4.1.orig/Basic/Core/Core.xs.PL 2004-12-06 00:32:06.000000000 +0100
|
|
|
680c4b6 |
+++ PDL-2.4.1/Basic/Core/Core.xs.PL 2004-12-12 22:05:11.000000000 +0100
|
|
|
680c4b6 |
@@ -463,11 +463,11 @@
|
|
|
680c4b6 |
CODE:
|
|
|
680c4b6 |
setflag(self->state,PDL_INPLACE,val);
|
|
|
680c4b6 |
|
|
|
680c4b6 |
-int
|
|
|
680c4b6 |
+long
|
|
|
680c4b6 |
address(self)
|
|
|
680c4b6 |
pdl *self;
|
|
|
680c4b6 |
CODE:
|
|
|
680c4b6 |
- RETVAL = (int) self;
|
|
|
680c4b6 |
+ RETVAL = (long) self;
|
|
|
680c4b6 |
OUTPUT:
|
|
|
680c4b6 |
RETVAL
|
|
|
680c4b6 |
|
|
|
680c4b6 |
Index: PDL-2.4.1/IO/Dumper.pm
|
|
|
680c4b6 |
===================================================================
|
|
|
680c4b6 |
--- PDL-2.4.1.orig/IO/Dumper.pm 2003-01-17 09:27:26.000000000 +0100
|
|
|
680c4b6 |
+++ PDL-2.4.1/IO/Dumper.pm 2004-12-12 23:41:27.544945320 +0100
|
|
|
680c4b6 |
@@ -149,7 +149,7 @@
|
|
|
680c4b6 |
my($s) = Data::Dumper->Dump([@_]);
|
|
|
680c4b6 |
my(%pdls);
|
|
|
680c4b6 |
# Find the bless(...,'PDL') lines
|
|
|
680c4b6 |
- while($s =~ s/bless\( do\{\\\(my \$o \= (\d+)\)\}\, \'PDL\' \)/\$PDL_$1/) {
|
|
|
680c4b6 |
+ while($s =~ s/bless\( do\{\\\(my \$o \= '?(\d+)'?\)\}\, \'PDL\' \)/\$PDL_$1/) {
|
|
|
680c4b6 |
$pdls{$1}++;
|
|
|
680c4b6 |
}
|
|
|
680c4b6 |
|
|
|
680c4b6 |
Index: PDL-2.4.1/Lib/GSL/INTERP/gsl_interp.pd
|
|
|
680c4b6 |
===================================================================
|
|
|
680c4b6 |
--- PDL-2.4.1.orig/Lib/GSL/INTERP/gsl_interp.pd 2003-03-12 21:10:50.000000000 +0100
|
|
|
680c4b6 |
+++ PDL-2.4.1/Lib/GSL/INTERP/gsl_interp.pd 2004-12-12 22:16:43.000000000 +0100
|
|
|
680c4b6 |
@@ -255,7 +255,7 @@
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_def('init_meat',
|
|
|
680c4b6 |
Pars => 'double x(n); double y(n);',
|
|
|
680c4b6 |
- OtherPars => 'int spl',
|
|
|
680c4b6 |
+ OtherPars => 'long spl',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
GSLERR(gsl_spline_init,( (gsl_spline *) $COMP(spl), $P(x),$P(y),$SIZE(n)));'
|
|
|
680c4b6 |
@@ -280,14 +280,14 @@
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_def('eval_meat',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
GSLERR(gsl_spline_eval_e,( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc), $P(out)));
|
|
|
680c4b6 |
');
|
|
|
680c4b6 |
pp_def('eval_meat_ext',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$out() = gsl_spline_eval( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc));
|
|
|
680c4b6 |
@@ -314,14 +314,14 @@
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_def('eval_deriv_meat',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
GSLERR(gsl_spline_eval_deriv_e,( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc), $P(out)));
|
|
|
680c4b6 |
');
|
|
|
680c4b6 |
pp_def('eval_deriv_meat_ext',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$out() = gsl_spline_eval_deriv( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc));
|
|
|
680c4b6 |
@@ -346,14 +346,14 @@
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_def('eval_deriv2_meat',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
GSLERR(gsl_spline_eval_deriv2_e,( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc), $P(out)));
|
|
|
680c4b6 |
');
|
|
|
680c4b6 |
pp_def('eval_deriv2_meat_ext',
|
|
|
680c4b6 |
Pars => 'double x(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$out() = gsl_spline_eval_deriv2( (gsl_spline *) $COMP(spl), $x(), (gsl_interp_accel *) $COMP(acc));
|
|
|
680c4b6 |
@@ -378,14 +378,14 @@
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_def('eval_integ_meat',
|
|
|
680c4b6 |
Pars => 'double a(); double b(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
GSLERR(gsl_spline_eval_integ_e,( (gsl_spline *) $COMP(spl), $a(), $b(), (gsl_interp_accel *) $COMP(acc),$P(out)));
|
|
|
680c4b6 |
');
|
|
|
680c4b6 |
pp_def('eval_integ_meat_ext',
|
|
|
680c4b6 |
Pars => 'double a(); double b(); double [o] out();',
|
|
|
680c4b6 |
- OtherPars => 'int spl;int acc;',
|
|
|
680c4b6 |
+ OtherPars => 'long spl;long acc;',
|
|
|
680c4b6 |
Doc => undef,
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$out() = gsl_spline_eval_integ( (gsl_spline *) $COMP(spl), $a(), $b(), (gsl_interp_accel *) $COMP(acc));
|
|
|
680c4b6 |
Index: PDL-2.4.1/Lib/GSL/RNG/gsl_random.pd
|
|
|
680c4b6 |
===================================================================
|
|
|
680c4b6 |
--- PDL-2.4.1.orig/Lib/GSL/RNG/gsl_random.pd 2002-12-02 17:58:34.000000000 +0100
|
|
|
680c4b6 |
+++ PDL-2.4.1/Lib/GSL/RNG/gsl_random.pd 2004-12-12 22:53:48.536580656 +0100
|
|
|
680c4b6 |
@@ -676,7 +676,7 @@
|
|
|
680c4b6 |
'gsl_get_uniform_meat',
|
|
|
680c4b6 |
Pars => '[o]a()',
|
|
|
680c4b6 |
GenericTypes => [F,D],
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code => '
|
|
|
680c4b6 |
$a() = gsl_rng_uniform((gsl_rng *) $COMP(rng));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -684,21 +684,21 @@
|
|
|
680c4b6 |
'gsl_get_uniform_pos_meat',
|
|
|
680c4b6 |
Pars => '[o]a()',
|
|
|
680c4b6 |
GenericTypes => [F,D],
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code => '
|
|
|
680c4b6 |
$a() = gsl_rng_uniform_pos((gsl_rng *) $COMP(rng));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'gsl_get_meat',
|
|
|
680c4b6 |
Pars => '[o]a()',
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code => '
|
|
|
680c4b6 |
$a() = gsl_rng_get((gsl_rng *) $COMP(rng));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'gsl_get_int_meat',
|
|
|
680c4b6 |
Pars => '[o]a()',
|
|
|
680c4b6 |
- OtherPars => 'int n; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'int n; long rng',
|
|
|
680c4b6 |
Code => '
|
|
|
680c4b6 |
$a() = gsl_rng_uniform_int((gsl_rng *) $COMP(rng),$COMP(n));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -709,21 +709,21 @@
|
|
|
680c4b6 |
my ($pars1,$fcall1,$arglist);
|
|
|
680c4b6 |
|
|
|
680c4b6 |
if ($npar==1) {
|
|
|
680c4b6 |
- $pars1='double a; int rng';
|
|
|
680c4b6 |
+ $pars1='double a; long rng';
|
|
|
680c4b6 |
$fcall1='$COMP(a)';
|
|
|
680c4b6 |
$arglist='$a,';
|
|
|
680c4b6 |
$pars2='a()';
|
|
|
680c4b6 |
$fcall2='$a()';
|
|
|
680c4b6 |
}
|
|
|
680c4b6 |
if ($npar==2) {
|
|
|
680c4b6 |
- $pars1='double a; double b; int rng';
|
|
|
680c4b6 |
+ $pars1='double a; double b; long rng';
|
|
|
680c4b6 |
$fcall1='$COMP(a),$COMP(b)';
|
|
|
680c4b6 |
$arglist='$a,$b,';
|
|
|
680c4b6 |
$pars2='a();b()';
|
|
|
680c4b6 |
$fcall2='$a(),$b()';
|
|
|
680c4b6 |
}
|
|
|
680c4b6 |
if ($npar==3) {
|
|
|
680c4b6 |
- $pars1='double a; double b; double c; int rng';
|
|
|
680c4b6 |
+ $pars1='double a; double b; double c; long rng';
|
|
|
680c4b6 |
$fcall1='$COMP(a),$COMP(b),$COMP(c)';
|
|
|
680c4b6 |
$arglist='$a,$b,$c,';
|
|
|
680c4b6 |
$pars2='a();b();c()';
|
|
|
680c4b6 |
@@ -757,7 +757,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_' . $name . '_var_meat',
|
|
|
680c4b6 |
Pars => $pars2 . ';[o]x()',
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$x() = gsl_ran_' . $name . '((gsl_rng *) $COMP(rng),' . $fcall2 . ');');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -793,7 +793,7 @@
|
|
|
680c4b6 |
# pp_defnd(
|
|
|
680c4b6 |
# 'ran_' . $name . '_feed_meat',
|
|
|
680c4b6 |
# Pars => '[o]x()',
|
|
|
680c4b6 |
-# OtherPars => 'int rng',
|
|
|
680c4b6 |
+# OtherPars => 'long rng',
|
|
|
680c4b6 |
# Code =>'
|
|
|
680c4b6 |
#$x() = gsl_ran_' . $name . '((gsl_rng *) $COMP(rng), $x());');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -848,7 +848,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_additive_gaussian_meat',
|
|
|
680c4b6 |
Pars => ';[o]x()',
|
|
|
680c4b6 |
- OtherPars => 'double sigma; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'double sigma; long rng',
|
|
|
680c4b6 |
Code =>'$x() += gsl_ran_gaussian((gsl_rng *) $COMP(rng), $COMP(sigma));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_addpm('
|
|
|
680c4b6 |
@@ -867,7 +867,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_additive_poisson_meat',
|
|
|
680c4b6 |
Pars => ';[o]x()',
|
|
|
680c4b6 |
- OtherPars => 'double sigma; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'double sigma; long rng',
|
|
|
680c4b6 |
Code =>'$x() += gsl_ran_poisson((gsl_rng *) $COMP(rng), $COMP(sigma));');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_addpm('
|
|
|
680c4b6 |
@@ -886,7 +886,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_feed_poisson_meat',
|
|
|
680c4b6 |
Pars => ';[o]x()',
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code =>'$x() = gsl_ran_poisson((gsl_rng *) $COMP(rng), $x());');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
pp_addpm('
|
|
|
680c4b6 |
@@ -905,7 +905,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_bivariate_gaussian_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'double sigma_x; double sigma_y; double rho; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'double sigma_x; double sigma_y; double rho; long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xx,yy;
|
|
|
680c4b6 |
gsl_ran_bivariate_gaussian((gsl_rng *) $COMP(rng), $COMP(sigma_x), $COMP(sigma_y),$COMP(rho), &xx, &yy;;
|
|
|
680c4b6 |
@@ -930,7 +930,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_dir_2d_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xx,yy;
|
|
|
680c4b6 |
gsl_ran_dir_2d((gsl_rng *) $COMP(rng), &xx, &yy;;
|
|
|
680c4b6 |
@@ -941,7 +941,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_dir_3d_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xx,yy,zz;
|
|
|
680c4b6 |
gsl_ran_dir_3d((gsl_rng *) $COMP(rng), &xx, &yy, &zz;;
|
|
|
680c4b6 |
@@ -955,7 +955,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_dir_nd_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'int ns => n; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'int ns => n; long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xxx[' . $MAX_DIMENSIONS .'];
|
|
|
680c4b6 |
gsl_ran_dir_nd((gsl_rng *) $COMP(rng), $COMP(ns), xxx);
|
|
|
680c4b6 |
@@ -981,7 +981,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_discrete_meat',
|
|
|
680c4b6 |
Pars => ';[o]x()',
|
|
|
680c4b6 |
- OtherPars => 'int rng_discrete; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'long rng_discrete; long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
$x()=gsl_ran_discrete((gsl_rng *) $COMP(rng), (gsl_ran_discrete_t *) $COMP(rng_discrete)); ');
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -1035,7 +1035,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_ver_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'double x0; double r;int ns => n; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'double x0; double r;int ns => n; long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xx=$COMP(x0);
|
|
|
680c4b6 |
|
|
|
680c4b6 |
@@ -1044,7 +1044,7 @@
|
|
|
680c4b6 |
pp_defnd(
|
|
|
680c4b6 |
'ran_caos_meat',
|
|
|
680c4b6 |
Pars => ';[o]x(n)',
|
|
|
680c4b6 |
- OtherPars => 'double m; int ns => n; int rng',
|
|
|
680c4b6 |
+ OtherPars => 'double m; int ns => n; long rng',
|
|
|
680c4b6 |
Code =>'
|
|
|
680c4b6 |
double xx=gsl_ran_gaussian((gsl_rng *) $COMP(rng),0.1)+0.5;
|
|
|
680c4b6 |
|