Changeset 28362
- Timestamp:
- Jun 16, 2010, 2:28:40 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/diffphot.pl (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/diffphot.pl
r28360 r28362 125 125 $command .= " -variance $inputVariance"; 126 126 $command .= " -psf $inputPSF"; 127 $command .= " -stats $outputStats";127 # $command .= " -stats $outputStats"; 128 128 $command .= " -threads $threads" if defined $threads; 129 129 $command .= " -recipe PSPHOT $recipe_psphot"; … … 140 140 unless ($success) { 141 141 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 142 &my_die("Unable to perform ppSub: $error_code", $diff_phot_id, $skycell_id, $error_code); 143 } 144 142 &my_die("Unable to perform psphot: $error_code", $diff_phot_id, $skycell_id, $error_code); 143 } 144 145 if (0) { # psphot doesn't produce a stats file 145 146 my $outputStatsReal = $ipprc->file_resolve($outputStats); 146 147 &my_die("Couldn't find expected output file: $outputStats", $diff_phot_id, $skycell_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal); … … 161 162 $quality = $1; 162 163 } 164 } 163 165 164 166 if (!$quality) { … … 171 173 172 174 # Do reverse photometry 173 {175 if ($bothways) { 174 176 my ($tempFile, $tempName) = tempfile( "/tmp/diffphot.$diff_phot_id.$skycell_id.XXXX", 175 177 UNLINK => !$save_temps, SUFFIX => '.fits' ); … … 182 184 unless ($success) { 183 185 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 184 &my_die("Unable to perform pp Sub: $error_code", $diff_phot_id, $skycell_id, $error_code);186 &my_die("Unable to perform ppArith: $error_code", $diff_phot_id, $skycell_id, $error_code); 185 187 } 186 188 &my_die("Couldn't find expected output file: $tempName", $diff_phot_id, $skycell_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($tempName); … … 200 202 $command .= " -variance $inputVariance"; 201 203 $command .= " -psf $inputPSF"; 202 $command .= " -stats $outputStats";204 # $command .= " -stats $outputStats"; 203 205 $command .= " -threads $threads" if defined $threads; 204 206 $command .= " -recipe PSPHOT $recipe_psphot"; … … 215 217 unless ($success) { 216 218 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 217 &my_die("Unable to perform ppSub: $error_code", $diff_phot_id, $skycell_id, $error_code); 218 } 219 219 &my_die("Unable to perform psphot: $error_code", $diff_phot_id, $skycell_id, $error_code); 220 } 221 222 if (0) { # psphot doesn't produce a stats file 220 223 my $outputStatsReal = $ipprc->file_resolve($outputStats); 221 224 &my_die("Couldn't find expected output file: $outputStats", $diff_phot_id, $skycell_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal); … … 235 238 if ($cmdflags =~ /-quality (\d+)/) { 236 239 $quality = $1; 240 } 237 241 } 238 242
Note:
See TracChangeset
for help on using the changeset viewer.
