#!/usr/bin/env perl

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

for ($x = 0; $x <= $max + 0.001; $x += $step) {
  $dir = "soc=$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 ; mynrgrun";
  system "rm data";
  chdir "..";
}
