"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "IO/FITS/FITS.pm" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

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

FITS.pm  (PDL-2.076):FITS.pm  (PDL-2.077)
skipping to change at line 654 skipping to change at line 654
} elsif ( $foo->{BITPIX} < 0 ) { } elsif ( $foo->{BITPIX} < 0 ) {
# bad values are stored as NaN's in FITS # bad values are stored as NaN's in FITS
# let setnanbad decide if we need to change anything # let setnanbad decide if we need to change anything
$pdl->inplace->setnantobad(); $pdl->inplace->setnantobad();
} }
print "FITS file may contain bad values.\n" print "FITS file may contain bad values.\n"
if $pdl->badflag() and $PDL::verbose; if $pdl->badflag() and $PDL::verbose;
my ($bscale, $bzero); my ($bscale, $bzero);
$bscale = $$foo{"BSCALE"}; $bzero = $$foo{"BZERO"}; $bscale = $$foo{"BSCALE"}; $bzero = $$foo{"BZERO"};
print "BSCALE = $bscale && BZERO = $bzero\n" if $PDL::verbose;
$bscale = 1 if (!defined($bscale) || $bscale eq ""); $bscale = 1 if (!defined($bscale) || $bscale eq "");
$bzero = 0 if (!defined($bzero) || $bzero eq ""); $bzero = 0 if (!defined($bzero) || $bzero eq "");
print "BSCALE = $bscale && BZERO = $bzero\n" if $PDL::verbose;
# Be clever and work out the final datatype before eating # Be clever and work out the final datatype before eating
# memory # memory
# #
# ensure we pick an element that is not equal to the bad value # ensure we pick an element that is not equal to the bad value
# (is this OTT?) # (is this OTT?)
my $tmp; my $tmp;
if ( $pdl->badflag() == 0 ) { if ( $pdl->badflag() == 0 ) {
$tmp = $pdl->flat()->slice("0:0"); $tmp = $pdl->flat()->slice("0:0");
 End of changes. 2 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)