comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fix linear algebra calls

Browse source
This commit is contained in:
edoapra 2025-09-11 11:25:51 -07:00
parent 3df06cd8e4
commit bde0d2ece6
No known key found for this signature in database
GPG key ID: 9E6A0B70826967BA
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/bsemol/bse_analytic_cis.F
View file

@ -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