#!/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);
