#!/usr/bin/env perl

use warnings;

$Nz = 4;

$file = "gt_GT_dens_A_d-A_d.dat";
system "intavg $file $Nz";
system "mv $file i0.dat";

$file = "i1t_I1T_dens_A_d-A_d.dat";
system "intavg $file $Nz";
system "mv $file i1.dat";

system "divy i1.dat i0.dat >tmp";
system "divybyx tmp >S_charge.dat";
unlink "tmp";


