TREX/Sherman-Morrison
1
0
Fork 0
mirror of https://github.com/TREX-CoE/Sherman-Morrison.git synced 2024-12-26 14:23:47 +01:00
Code Issues Projects Releases Wiki Activity

Started debugging Slagel-splitting in MaponiA3.

Browse Source
This commit is contained in:
François Coppens 2021-04-16 17:33:15 +02:00 committed by Francois Coppens
parent 7cef89e2b5
commit af64b91ca6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/SM_MaponiA3S.cpp
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" {