#!/usr/bin/env perl
# Input: Delta-1.dat & Delta-2.dat
# Output: FSOL* and Delta.dat, Delta.dat2

unlink("FSOL.dat", "FSOLNEG.dat", "FSOL.dat2", "FSOLNEG.dat2", "Delta.dat", "Delta.dat2");

system("cp ./Delta-2.dat ./Delta.dat");
system("cp ./Delta-2.dat ./Delta.dat2");
system("${NRGPREFIX} adapt P | tee solverlog-2");
system("${NRGPREFIX} adapt N | tee solverlogneg-2");
if (!(-e "FSOL.dat" && -e "FSOLNEG.dat")) {
    print "solver failed.\n";
    exit(1);
} else {
    system("mv FSOL.dat ./FSOL.dat2");
    system("mv FSOLNEG.dat ./FSOLNEG.dat2");
}

system("cp ./Delta-1.dat ./Delta.dat");
system("${NRGPREFIX} adapt P | tee solverlog-1");
system("${NRGPREFIX} adapt N | tee solverlogneg-1");
if (!(-e "FSOL.dat" && -e "FSOLNEG.dat")) {
    print "solver failed.\n";
    exit(1);
}