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

my $iter = `getiter`;

$iter++;

my $fn = "ITER";
open(F, ">$fn") or die "Can't open $fn for writing, stopped";
print F "$iter";
close F;
