#!/usr/bin/env perl

use Env;

chomp(my $Nz = `getNz`);
chomp(my $min = `getparam broaden_min param.loop`);
chomp(my $max = `getparam broaden_max param.loop`);
chomp(my $ratio = `getparam broaden_ratio param.loop`);
chomp(my $T = `getparam T param.loop`);
chomp(my $alpha = `getparam broaden_alpha param.loop`);
chomp(my $gamma = `getparam broaden_gamma param.loop`);

my $fn = "spec_CFS_dens_hyb_f-hyb_f-u.bin";
system "$NRGPREFIX broaden -x $gamma -m $min -M $max -r $ratio   $fn $Nz $alpha $T 1e-99";
system "mv spec.dat spec-u.dat";
my $fn = "spec_CFS_dens_hyb_f-hyb_f-d.bin";
system "$NRGPREFIX broaden -x $gamma -m $min -M $max -r $ratio   $fn $Nz $alpha $T 1e-99";
system "mv spec.dat spec-d.dat";