#!/usr/bin/env perl

use Env;

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

my $fn = "spec_FDM_dens_A_d-A_d.bin";

print "min=$min max=$max ratio=$ratio T=$T alpha=$alpha gamma=$gamma\n";
my $Nz = 1;

system "$NRGPREFIX $prefix broaden -o -x $gamma -m $min -M $max -r $ratio   $fn $Nz $alpha $T 1e-99";
system "mv spec.dat A.dat";

$Gamma = `getparam Gamma`;
$U = `getparam U`;

chomp($Gamma,$U);

$scalex = 1/$U;
$scaley = 3.14159 * $Gamma;

system "scalexy $scalex $scaley A.dat >A-rescaled.dat";
