#!/usr/bin/env perl

use Env;
use warnings;
use strict;

chomp(my $Nz =    `getNz param.loop`);
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 $pr = "FDM_dens";

avg("spec_${pr}_A_d-A_d.bin",    "c-imG.dat");
avg("spec_${pr}_self_d-A_d.bin", "c-imF.dat");

sub avg
{
    my $fn = shift;
    my $out = shift;
    system "$NRGPREFIX broaden -x $gamma -m $min -M $max -r $ratio   $fn $Nz $alpha $T 1e-99";
    system "mv spec.dat $out";
}