Commit 499fc77c authored by Henning Janssen's avatar Henning Janssen

Revert later start of Hubbard 1

parent c306ba51
......@@ -484,7 +484,7 @@ CONTAINS
.AND.(input%minoccDistance<=results%last_occdistance&
.OR.input%minmatDistance<=results%last_mmpMatdistance)
!Run after first overall iteration to generate a starting density matrix
hub1%l_runthisiter = hub1%l_runthisiter.OR.(iter==5.AND.(hub1%iter == 0&
hub1%l_runthisiter = hub1%l_runthisiter.OR.(iter==1.AND.(hub1%iter == 0&
.AND.ALL(vTot%mmpMat(:,:,atoms%n_u+1:atoms%n_u+atoms%n_hia,:).EQ.0.0)))
!Prevent that the scf loop terminates
l_cont = l_cont.OR.hub1%l_runthisiter
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment