(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| FlexRaw.pm (PDL-2.082) | : | FlexRaw.pm (PDL-2.083) |
|---|
| | |
| skipping to change at line 704 | | skipping to change at line 704 |
|---|
| $type = $PDL_L; | | $type = $PDL_L; |
| } else { | | } else { |
| $newfile = 0; | | $newfile = 0; |
| } | | } |
| } | | } |
| if ($#_ == 1) { | | if ($#_ == 1) { |
| barf("Bad typename '$type' in mapflex") | | barf("Bad typename '$type' in mapflex") |
| unless defined $flextypes{$type}; | | unless defined $flextypes{$type}; |
| $type = $flextypes{$type}; | | $type = $flextypes{$type}; |
| } | | } |
|
| my $pdl = PDL->zeroes ((new PDL::Type($type)), | | my $pdl = PDL->zeroes(PDL::Type->new($type), |
| ref $hdr->{Dims} ? @{$hdr->{Dims}} : $hdr | | ref $hdr->{Dims} ? @{$hdr->{Dims}} : $hdr-> |
| ->{Dims}); | | {Dims}); |
| $len = length $ {$pdl->get_dataref}; | | $len = length $ {$pdl->get_dataref}; |
| | |
| &mapchunk($d,$pdl,$len,$name,$offset) or last READ; | | &mapchunk($d,$pdl,$len,$name,$offset) or last READ; |
| $chunkread += $len; | | $chunkread += $len; |
| if ($newfile && $f77mode) { | | if ($newfile && $f77mode) { |
| if ($opts{Creat}) { | | if ($opts{Creat}) { |
| $pdl->set(0,$size - 8); | | $pdl->set(0,$size - 8); |
| } else { | | } else { |
| $chunk = $pdl->copy; | | $chunk = $pdl->copy; |
| } | | } |
| | | |
| End of changes. 1 change blocks. |
|---|
| 3 lines changed or deleted | | 3 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 