Changeset 28653

Timestamp:

Jul 9, 2010, 3:19:30 PM (16 years ago)

Author:

watersc1

Message:

typo fix. Hopefully last bit of work on this.

File:

• tags/ipp-20100701/pstamp/scripts/detectability_respond.pl (modified) (5 diffs)

tags/ipp-20100701/pstamp/scripts/detectability_respond.pl

@@ -436 +436 @@
             ];
     }
-    elsif ($CMFversion eq 'PS1_DV2') {
+    elsif ($CMFversion eq 'PS1_DV1') {
         $column_defs = [
             { name => 'PSF_QF',   type => '1E', writetype => TDOUBLE },
@@ -458 +458 @@
 
     my $correct_error = 0;
+#    print STDERR "Ncols:" .  $#{ $column_defs } . "\n";
     foreach my $col (@$column_defs) {
         my ($col_num,$col_type,$col_data);
@@ -467 +468 @@
         $inFits->get_coltype($col_num, $col_type, undef, undef, $status) and check_fitsio($status);
         $inFits->read_col($col_type, $col_num, 1, 1, $numRows, 0, $col_data, undef, $status) and check_fitsio($status);
-        
+#       print STDERR "$col\t>>" . $col->{name} . "<<\t>>" . @{ $col_data } . "<<\n";
         if ($col->{name} eq 'PSF_QF') {
             @tmp_Qfact = @{ $col_data };
@@ -494 +495 @@
     }
     $inFits->close_file( $status ) and check_fitsio($status);    
+#    print STDERR "$CMFversion\n";
+#    print STDERR "Q: $#tmp_Qfact\t@tmp_Qfact\nN: $#tmp_Npix\t@tmp_Npix\n";
     return(\@tmp_Npix, \@tmp_Qfact, \@tmp_flux, \@tmp_flux_err);
 }
@@ -605 +608 @@
         my $colName = $colNames[$i];# Column name
         my $writeType = $colWriteType[$i];
+        unless(defined($writeType)) {
+            print "write type undefined for $colName\n";
+        }
+        unless(defined($numRows)) {
+            print "num Rows undefined for $colName\n";
+        }
+        unless(defined($status)) {
+            print "status undefined for $colName\n";
+        }
+        unless(defined($colData{$colName})) {
+            print "col data undefined for $colName\n";
+        }
+        unless(defined($colName)) {
+            print "column name undefined for $i\n";
+        }
+#       print STDERR "$writeType $i $numRows $colName $status @{ $colData{$colName} }\n";
         $outFits->write_col( $writeType, $i + 1, 1, 1, $numRows, $colData{$colName}, $status );
         check_fitsio( $status );
+        
     }
     $outFits->close_file( $status );