#!/usr/bin/env perl

use warnings;

$Nz = 4;
$file = "gt_GT_dens_A_d-A_d.dat";
$gamma = `getparam Gamma 1_zloop`;
$factor = 3.14159 * $gamma;

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