#!/usr/bin/env perl
# DMFT result directory cleanup script
# Rok Zitko, rok.zitko@ijs.si, March 2008, Oct 2012
# $Id: CLEANUPDMFT,v 1.1 2012/10/14 11:29:30 zitko Exp zitko $

# CHANGE LOG
# 14.10.2012 - support for A/B sublattices
#            - error checking for chdir

my $KEEP = 1; # keep last iteration

if (!-e 'ITER') {
    die "No ITER found, stopped";
}

if (-d "A" && -d "B") {
    # Recursive call
    chdir "A" or die;
    system "CLEANUPDMFT";
    chdir "..";
    chdir "B" or die;
    system "CLEANUPDMFT";
    chdir "..";
}

my $iter = `cat ITER`;

print("iter=[$iter]\n");

chdir "dmft/" or die;

for ($i = 1; $i <= $iter - $KEEP ; $i++) {
    system "rm $i-*";
}
chdir "../" or die;

#chdir "res/" or die;
#system "rm *";
#chdir "../" or die;

system "rm basis.*";
system "rm ham.*";
system "rm op.*";

system "rm Delta-re.dat Delta.dat Delta.m DeltaFirst.*";
#system "rm FSOL FSOLNEG";
system "rm Delta.dat.OLD";
system "rm log.lsf-e log.lsf-o my.job";
# system "rm FSOL*";
system "rm Delta-d.* Delta-u.*";
system "rm Delta.dat2 DeltaFirst-?.dat Delta-re-?.dat";
system "rm Delta.dat.unsym";
system "rm Delta-[1-9]*.dat";
system "rm Delta-d-*.dat Delta-u-*.dat";

for ($i = 1; $i <= 32 ; $i++) {
    -d "$i" or next;
    -e "$i/data" or next;
    system "rm -r $i";
}
