#!/usr/bin/env perl

$Nz = 4;
for ($z = 1/$Nz; $z <= 1; $z += 1/$Nz) {
    push @z, $z;
}

pop @z; push @z, '1.0'; # fix

print "z=";
foreach (@z) { print "$_," };
print "\n";

#exit(1);

$cnt = 0;
foreach (@z) {
  $v = $_;
  $cnt++;
  !-d $cnt or next;
  print "$cnt - $v\n";
  system "mkdir $cnt";
  chdir $cnt;
  system "m4 -DZZZ=$v ../param >param";
  system "../3x_process.real.2x2 $v";
  system "../3x_run";
  chdir "..";
}