#!/usr/bin/env perl
# Calculate thermodynamic quantities of the model defined by param.loop in
# the current directory.
# Rok Zitko, zitko@theorie.physik.uni-goettingen.de, Nov 2008

use warnings;

if (-d "clean") {
  die "Subdir clean/ already exists. I'm confused.\n";
}

mkdir "clean";
chdir "clean";

system "transCLEAN ../param.loop >param.loop";
system "perl param.loop";

chdir "..";
