Changeset 33285 for trunk

Timestamp:

Feb 16, 2012, 2:41:57 PM (14 years ago)

Author:

bills

Message:

minor tweaks this version creates results that dquery_finish.pl can use to build response file

File:

• trunk/pstamp/scripts/dquery_job_run.pl (modified) (4 diffs)

trunk/pstamp/scripts/dquery_job_run.pl

@@ -2 +2 @@
 #
 #
-# Create a response to a MOPS_DETECTABILITY_QUERY
+# Run a detectability query job
 #
 #
@@ -170 +170 @@
 }
 
-my $results = "$outroot.results";
+my $results = "${output_base}results.txt";
 open OUT, ">$results" or 
         my_die("Failed to open results file $results",
@@ -183 +183 @@
 my ($tmp_Npix,$tmp_Qfact,$tmp_flux,$tmp_flux_error) = read_cmf_file($cmf,$rows[0]->{EXTENSION_BASE});
 $i = 0;
-print OUT "ROWNUM PROC_ERROR NPIX QFACTOR FLUX FLUX_SIG STAGE STAGE_ID COMPONENT CMFFILE\n";
+print OUT "ROWNUM PROC_ERROR NPIX QFACTOR FLUX FLUX_SIG FPA_ID STAGE STAGE_ID COMPONENT CMFFILE\n";
 foreach my $row (@rows) {
     $row->{PROC_ERROR} = $params->{PROC_ERROR};
@@ -192 +192 @@
     $row->{FLUX_SIG} = ${ $tmp_flux_error }[$i];
     
-    print OUT "$row->{ROWNUM} $row->{PROC_ERROR} $row->{NPIX} $row->{QFACTOR} $row->{FLUX} $row->{FLUX_SIG} $stage $stage_id $component $cmfbase\n";
+    print OUT "$row->{ROWNUM} $row->{PROC_ERROR} $row->{NPIX} $row->{QFACTOR} $row->{FLUX} $row->{FLUX_SIG} $fpa_id $stage $stage_id $component $cmfbase\n";
     $i++;
 }