Merge pull request #557 from EricaCMitchell/pr-lapack_hotfix

Hotfix for MADNESS_LINALG_USE_LAPACKE = true
m-a-d-n-e-s-s · Oct 26, 2024 · 67ea7b5 · 67ea7b5
2 parents b82d6c9 + eee6a59
commit 67ea7b5
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/src/madness/tensor/lapack.cc b/src/madness/tensor/lapack.cc
@@ -476,11 +476,7 @@ STATIC inline void geqrf_(integer *m, integer *n,
 STATIC inline void geqrf_(integer *m, integer *n,
                           real8 *a, integer *lda, real8 *tau,
                           real8 *work, integer *lwork, integer *infoOUT) {
-#if MADNESS_LINALG_USE_LAPACKE
-	dgeqrf_(LAPACK_ROW_MAJOR, m, n, a, lda, tau, infoOUT);
-#else
 	dgeqrf_(m, n, a, lda, tau, work, lwork, infoOUT);
-#endif
 }
 
 STATIC inline void geqrf_(integer *m, integer *n,