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

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

system("cp ./Delta-d.dat ./Delta.dat");
system("cp ./Delta-d.dat ./Delta.dat2");
system("${NRGPREFIX} adapt P | tee solverlog-d");
system("${NRGPREFIX} adapt N | tee solverlogneg-d");
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-u.dat ./Delta.dat");
system("${NRGPREFIX} adapt P | tee solverlog-u");
system("${NRGPREFIX} adapt N | tee solverlogneg-u");
if (!(-e "FSOL.dat" && -e "FSOLNEG.dat")) {
    print "solver failed.\n";
    exit(1);
}