#!/usr/bin/perl
#

$target = "_iyuma";
$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 = "~/junk/ensemble-0.7/solvepht infile=$infile outfile=$outfile imfile=$imgfile sigfile=$sigfile ";
  $cmd .= " niter=2 ";
  $cmd .= " badstar=8 ";
  $cmd .= " varstar=7 ";

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

exit 0;
