Commit ab953adc authored by Gregor Michalicek's avatar Gregor Michalicek

Remove double increase of iterHF in main/fleur.F90.

...it is also increased in hybrid/hybrid.F90.
parent 2c5b76a3
......@@ -415,7 +415,6 @@ CONTAINS
l_cont = .TRUE.
IF (hybrid%l_hybrid) THEN
IF(hybrid%l_calhf) THEN
iterHF = iterHF + 1
l_cont = l_cont.AND.(iterHF < input%itmax)
l_cont = l_cont.AND.(input%mindistance<=results%last_distance)
CALL check_time_for_next_iteration(iterHF,l_cont)
......
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