#!/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_DMNRG_dens_A_d-A_d.bin"; system "$NRGPREFIX $prefix broaden -x $gamma -m $min -M $max -r $ratio $fn $Nz $alpha $T 1e-99";