Changeset 19127

Timestamp:

Aug 19, 2008, 12:30:55 PM (18 years ago)

Author:

eugene

Message:

adding thread command-line option

Location:

trunk/ippScripts/scripts

Files:

• chip_imfile.pl (modified) (3 diffs)
• detrend_process_imfile.pl (modified) (3 diffs)
• detrend_resid_imfile.pl (modified) (3 diffs)
• warp_skycell.pl (modified) (4 diffs)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -25 +25 @@
 
 # Parse the command-line arguments
-my ( $exp_id, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $verbose,
+my ( $exp_id, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $threads, $verbose,
      $no_update, $no_op, $redirect );
 GetOptions(
@@ -36 +36 @@
     'dbname|d=s'        => \$dbname,    # Database name
     'reduction=s'       => \$reduction, # Reduction class
+    'threads=s'         => \$threads,   # Number of threads to use for ppImage
     'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update, # Don't update the database?
@@ -139 +140 @@
     $command .= " -recipe PPSTATS CHIPSTATS";
     $command .= " -stats $outputStats";
+    $command .= " -threads $threads" if defined $threads;
     $command .= " -dbname $dbname" if defined $dbname;
     $command .= " -tracedest $traceDest -log $logDest";

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -25 +25 @@
 
 my ( $det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $outroot, $dbname, $reduction,
-     $verbose, $no_update, $no_op, $redirect );
+     $threads, $verbose, $no_update, $no_op, $redirect );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -37 +37 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction, # Reduction class
+    'threads=s'         => \$threads,   # Number of threads to use for ppImage
     'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
@@ -107 +108 @@
     $command .= " -stats $outputStats";
     $command .= " -tracedest $traceDest -log $logDest";
+    $command .= " -threads $threads" if defined $threads;
     $command .= " -dbname $dbname" if defined $dbname;
 

trunk/ippScripts/scripts/detrend_resid_imfile.pl

@@ -25 +25 @@
 
 my ( $det_id, $iter, $exp_id, $exp_tag, $class_id, $det_type, $detrend, $input_uri, $camera, $mode, $outroot,
-     $dbname, $reduction, $verbose, $no_update, $no_op, $redirect );
+     $dbname, $reduction, $threads, $verbose, $no_update, $no_op, $redirect );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -40 +40 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction, # Reduction class
+    'threads=s'         => \$threads,   # Number of threads to use for ppImage
     'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
@@ -158 +159 @@
     $command .= " -stats $outputStats";
     $command .= " -tracedest $traceDest -log $logDest";
+    $command .= " -threads $threads" if defined $threads;
     $command .= " -dbname $dbname" if defined $dbname;
 

trunk/ippScripts/scripts/warp_skycell.pl

@@ -25 +25 @@
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
 
-my ($warp_id, $skycell_id, $tess_dir, $camera, $dbname, $outroot, $verbose, $no_update, $no_op, $redirect, $save_temps);
+my ($warp_id, $skycell_id, $tess_dir, $camera, $dbname, $outroot, $threads, $verbose, $no_update, $no_op, $redirect, $save_temps);
 GetOptions(
     'warp_id|i=s'       => \$warp_id, # Warp identifier
@@ -33 +33 @@
     'dbname|d=s'        => \$dbname, # Database name
     'outroot=s'         => \$outroot, # Output root name
+    'threads=s'         => \$threads,   # Number of threads to use for ppImage
     'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update, # Don't update the database?
@@ -171 +172 @@
     my $command = "$pswarp";
     $command .= " -list $imageName";
-    # $command .= " -threads 4";
     $command .= " -masklist $maskName";
     $command .= " -weightlist $weightName";
@@ -183 +183 @@
     $command .= " -psf";        # Turn on PSF determination
     $command .= " -tracedest $traceDest -log $logDest";
+    $command .= " -threads $threads" if defined $threads;
     $command .= " -dbname $dbname" if defined $dbname;