"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "IO/Misc/misc.pd" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

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

misc.pd  (PDL-2.074):misc.pd  (PDL-2.075)
skipping to change at line 1307 skipping to change at line 1307
# in the future this function should return a state indicating an error # in the future this function should return a state indicating an error
# if appropriate # if appropriate
pp_def('_rasc', pp_def('_rasc',
Pars => '[o] nums(n); int [o] ierr(n)', Pars => '[o] nums(n); int [o] ierr(n)',
OtherPars => 'int num => n; PerlIO *fp', OtherPars => 'int num => n; PerlIO *fp',
GenericTypes => ['F','D'], GenericTypes => ['F','D'],
Code => q@ Code => q@
int ns, i, j; int ns, i, j;
ns = $SIZE(n); ns = $SIZE(n);
threadloop %{ broadcastloop %{
for (i=0;i<ns; i++) { for (i=0;i<ns; i++) {
if (($ierr(n=>i) = if (($ierr(n=>i) =
$TFD(getfloat,getdouble)($COMP(fp), &($nums(n=>i)))) <= 0) $TFD(getfloat,getdouble)($COMP(fp), &($nums(n=>i)))) <= 0)
break; break;
} }
for (j=i+1; j<ns; j++) for (j=i+1; j<ns; j++)
$ierr(n=>j) = $ierr(n=>i); /* inherit error flags */ $ierr(n=>j) = $ierr(n=>i); /* inherit error flags */
%} %}
@, @,
# Doc => 'Internal Function used by rasc. ' # Doc => 'Internal Function used by rasc. '
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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