Reset atomic state after response basis calculation. (#4515)

This commit is contained in:
Juerg Hutter 2025-10-29 10:32:28 +01:00 committed by GitHub
parent 5f3bc36082
commit 0b11ff4cc6
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -575,6 +575,8 @@ CONTAINS
wfn(:, :, :, ider) = atom%orbitals%wfn
state%occupation(lhomo, nhomo) = fhomo
END DO
! reset
CALL calculate_atom(atom, iw=0, noguess=.TRUE.)
DO l = 0, state%maxl_occ
! occupied states