#!/usr/bin/env perl

use warnings;

$Nz = 4;
$file = "gt_GT_dens_hyb_f-hyb_f.dat";
$factor = 0.5*(3.14159**2);

system "intavg $file $Nz";
system "scaleby $factor $file >GT.dat";

$file = "spec_FDM_dens_hyb_f-hyb_f.dat";

system "intavg $file $Nz";
system "scaleby $factor $file >spec.dat";
