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

require "average.pl";

my $Nz = 8;
my $pr = "CFS_dens";

avg($Nz, "/spec_${pr}_A_d-A_d.dat", "A.dat", 1e-6);
avg($Nz, "/spec_${pr}_Ac_d-A_d.dat", "F.dat", 1e-6);

avg($Nz, "/b_${pr}_A_d-A_d.dat",   "B.dat", 1e-6);
avg($Nz, "/b_${pr}_Ac_d-A_d.dat",  "E.dat", 1e-6);

system("kk A.dat Are.dat");
system("kk F.dat Fre.dat");
system("kk B.dat Bre.dat");
system("kk E.dat Ere.dat");
