diff --git a/src/atom_energy.F b/src/atom_energy.F index 5ffa908bea..f0205a36a8 100644 --- a/src/atom_energy.F +++ b/src/atom_energy.F @@ -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