#!/usr/bin/env perl
# Determine the iteration number.
# Rok Zitko, zitko@theorie.physik.uni-goettingen.de, Oct 2008

my $iter;

if (-e "ITER") {
  chomp($iter = `cat ITER`);
} else {
  open(F, ">ITER") or die "Can't open ITER for writing. Stopped";
  print F "0";
  close(F);
  $iter = 0;
}

print "$iter";
