#!/usr/bin/env perl
# z-averaging of spectral functions (Hubbard model)
# Rok Zitko, zitko@theorie.physik.uni-goettingen.de, Nov 2008

require "average.pl";

chomp(my $Nz = `getparam Nz param.loop`);
my $pr = "DMNRG_dens";

# Conduction band
avg($Nz, "/spec_${pr}_A_d-A_d.dat", "res/c-imG.dat");
avg($Nz, "/b_${pr}_A_d-A_d.dat",    "res/c-imF.dat");
