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

checking compilation...EJB

Browse source
This commit is contained in:
Eric Bylaska 2023-06-23 18:39:02 -07:00
parent 6b92a6bdba
commit 5db78321d8
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/nwpw/pspw/cpsd/inner_loop.F
View file

@ -663,14 +663,12 @@ c call Pack_cc_Sum(1,psi2(1,n),psi1(1,n),psi2(1,n))
if (psp_pawexist()) then
call psp_overlap_S(ispin,ne,psi1,psi_r)
if (move) call phafac2()
if (control_gram_schmidt()) then
if (control_gram_schmidt2()) then
call Dneall_f_GramSchmidt(ms,psi2,npack1)
else
call Dneall_f_Sortho(ms,psi2,psi_r,npack1)
end if
else
call psi_lmbda_paw(ispin,ne,nemax,npack1,psi_r,psi2,
> dte,