Started debugging Slagel-splitting in MaponiA3.

This commit is contained in:
François Coppens 2021-04-16 17:33:15 +02:00 committed by Francois Coppens
parent 7cef89e2b5
commit af64b91ca6

View File

@ -129,10 +129,6 @@ void MaponiA3S(double *Slater_inv, unsigned int Dim, unsigned int N_updates,
} }
memcpy(Slater_inv, last, Dim * Dim * sizeof(double)); memcpy(Slater_inv, last, Dim * Dim * sizeof(double));
if (later > 0) {
MaponiA3S(Slater_inv, Dim, later, later_updates, later_index);
}
/* /*
CLEANUP MEMORY CLEANUP MEMORY
*/ */
@ -144,6 +140,11 @@ void MaponiA3S(double *Slater_inv, unsigned int Dim, unsigned int N_updates,
delete[] ylk[l]; delete[] ylk[l];
} }
delete[] Al, next, p; delete[] Al, next, p;
if (later > 0) {
std::cout << "Entering recursive loop with " << l << " updates" << std::endl;
MaponiA3S(Slater_inv, Dim, later, later_updates, later_index);
}
} }
extern "C" { extern "C" {