#!/usr/bin/perl
#

$filter = "";

$aper = 6;
$infile = sprintf "multi%d_%s.out", $aper, $filter;
$outfile = sprintf "solve%d_%s.out", $aper, $filter;
$sigfile = sprintf "solve%d_%s.sig", $aper, $filter;
$imgfile = sprintf "solve%d_%s.img", $aper, $filter;


  $cmd = "/home/richmond/spiff2012/home/richmond/tass/ensemble/solvepht infile=$infile outfile=$outfile imfile=$imgfile sigfile=$sigfile ";
  $cmd .= " niter=2 ";


#  $cmd .= " varstar=9 varstar=34 badstar=25 badstar=61 ";
#  $cmd .= " badim=0 badim=1 badim=2 badim=3 badim=4 ";

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

exit 0;
