From bde0d2ece61a687e0eca8cf188f666461cffba2f Mon Sep 17 00:00:00 2001 From: edoapra Date: Thu, 11 Sep 2025 11:25:51 -0700 Subject: [PATCH] fix linear algebra calls --- src/bsemol/bse_analytic_cis.F | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/bsemol/bse_analytic_cis.F b/src/bsemol/bse_analytic_cis.F index 98d73f3432..5286b4408b 100644 --- a/src/bsemol/bse_analytic_cis.F +++ b/src/bsemol/bse_analytic_cis.F @@ -112,12 +112,10 @@ ! First step is to get (A-B)^(1/2) call ga_sync() -#if defined(PARALLEL_DIAG) #ifdef SCALAPACK info= ga_cholesky('L',g_amb) -#else +#elif defined(PEIGS) call ga_chol(g_amb, g_amb, info) -#endif #else call ga_chol_seq(g_amb, g_amb, info) #endif @@ -289,12 +287,10 @@ ! First step is to get (A-B)^(1/2) call ga_sync() -#if defined(PARALLEL_DIAG) #ifdef SCALAPACK info= ga_cholesky('L',g_amb) -#else +#elif defined(PEIGS) call ga_chol(g_amb, g_amb, info) -#endif #else call ga_chol_seq(g_amb, g_amb, info) #endif