#!/usr/bin/env perl

$max = 1;
$step = $max/100;

for ($x = 0; $x <= $max+0.0001; $x += $step) {
  $dir = "phi=$x";
  !-d $dir or next;
  print "$dir x=$x\n";
  sleep(1);
  mkdir $dir;
  chdir $dir;
  system "pwd";
  system "m4 -DXXX=$x ../param >param";
  system "nrginit";
  if (-e "data") {
     system "mynrgrun";
     unlink "data";
  }
  chdir "..";
}
