#!/usr/bin/perl
#

$ensemble_dir = "~/y1/spiff2012/home/richmond/tass/ensemble";

$target = "_iyuma";
#$target = "_dqher";
$filter = "";
$uc_filter = uc($filter);
$lc_filter = lc($filter);

$aper = "4";
$infile = sprintf "multi%s%s_%s.out", $target, $aper, $lc_filter;
$outfile = sprintf "solve%s%s_%s.out", $target, $aper, $lc_filter;
$sigfile = sprintf "solve%s%s_%s.sig", $target, $aper, $lc_filter;
$imgfile = sprintf "solve%s%s_%s.img", $target, $aper, $lc_filter;


  $cmd = "$ensemble_dir/solvepht infile=$infile outfile=$outfile imfile=$imgfile sigfile=$sigfile ";
  $cmd .= " niter=2 ";
#  $cmd .= " badim=23 ";

  if ($aper eq "4") {
    #  for 14cv, at (68, 195)
     $cmd .= " varstar=8 badstar=9 ";
#     $cmd .= " varstar=11 ";
  }

#  $cmd .= " badim=10 badim=11 badim=12 badim=13 ";
#  $cmd .= " badim=37 ";

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

exit 0;