Changeset 19127 for trunk/ippScripts/scripts/warp_skycell.pl

Timestamp:

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

Author:

eugene

Message:

adding thread command-line option

File:

• trunk/ippScripts/scripts/warp_skycell.pl (modified) (4 diffs)

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;