"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

---