#!/usr/bin/perl
#

$filter = "I";
$uc_filter = uc($filter);
$lc_filter = lc($filter);

$aper = "";
$infile = sprintf "pg_multi%s_%s.out", $aper, $lc_filter;
$outfile = sprintf "pg_solve%s_%s.out", $aper, $lc_filter;
$sigfile = sprintf "pg_solve%s_%s.sig", $aper, $lc_filter;
$imgfile = sprintf "pg_solve%s_%s.img", $aper, $lc_filter;


  $cmd = "/old_spiff/home/richmond/tass/ensemble/solvepht infile=$infile outfile=$outfile imfile=$imgfile sigfile=$sigfile ";
  $cmd .= " niter=2 ";
  #$cmd .= " badstar=5 ";
  #$cmd .= " varstar=0 ";
  #$cmd .= " varstar=7 varstar=56 varstar=58 ";
  #$cmd .= " badstar=6 badstar=95 badstar=28 badstar=20 ";
  #$cmd .= " badstar=32 badstar=11 badstar=127 ";
  #$cmd .= " badstar=29 badstar=57 badstar=74 badstar=38 ";
  #$cmd .= " badstar=24 ";
  #$cmd .= " varstar=54 varstar=83 varstar=58 ";
  #$cmd .= " varstar=641 varstar=158 ";
  #$cmd .= " badim=117 ";
  # $cmd .= " badim=1 badim=5 ";
  #$cmd .= " badim=187 badim=188 ";
  #$cmd .= " badim=253 badim=52 badim=294 badim=126 badim=174 ";
  #$cmd .= " badim=53 badim=81 badim=295 badim=173 ";
  #$cmd .= " badim=175 badim=176 badim=177 badim=178 badim=179 ";
  #$cmd .= " badim=180 badim=181 badim=182 badim=183 badim=184 ";
  #$cmd .= " badim=185 badim=186 badim=187 badim=188 badim=189 ";
  #$cmd .= " badim=190 badim=191 badim=192 badim=193 badim=194 ";
  #$cmd .= " badim=195 ";
  #$cmd .= " badim=213 badim=224 badim=291 ";

printf "%s\n", $cmd;
$retval = `$cmd`;
printf "retval is ..%s..\n", $retval;

exit 0;