#!/usr/local/bin/perl

$base = "0717.0.irac.";
$outbase = "MACS0717.irac.";

@types = ("mosaic","median_mosaic","median_mosaic_unc","mosaic_std","mosaic_unc","mosaic_cov");

for($i=0;$i<2;$i++){
  $ch = $i+1;
  foreach $type (@types){
     $infile = $base . $ch . "." . $type . ".fits";
     $outfile = "./clp/" . $outbase . $ch . "." . $type . ".fits";
     $cov = $base . $ch . ".mosaic_cov.fits";
     $cmd = "ic '%1 NaN %2 30 > ?' " . $infile . " " . $cov . " > " . $outfile;
     printf STDOUT "%s\n",$cmd;
     system($cmd);
  }
	

}