#!/usr/bin/perl


open(DIR,"ls output.auto_ssp.CS.*.rss.out.rss.fits.gz |");
while($file=<DIR>) {
    chop($file);
    $name=$file;
    $cut="output.auto_ssp.CS.";
    $name =~ s/$cut//;
    $cut=".rss.out.rss.fits.gz";
    $name =~ s/$cut//;
    $call="../SEG_GAS_v1.3c/plot_output_ratio.pl ".$file." 0.02 4500 rat.".$name.".png/PNG 0.7 1.3";
    system($call);
    $call="mv rat.".$name.".png ../SEG_GAS_rat/";
    system($call);
    $call="mv rat_mod.out ../SEG_GAS_rat/spec_rat.".$name.".txt";
    system($call);
    print "$name\n";
}
close(DIR);
exit;