Commit 9ef7d0cb authored by Henning Janssen's avatar Henning Janssen

Fix for Hubbard 1 distance

parent 02f72e37
......@@ -38,7 +38,7 @@ MODULE m_hubbard1Distance
END DO
ENDDO
results%last_occdistance = results%last_occdistance + ABS(n_out-n_in)
results%last_mmpMatdistance = MAXVAL(elementDistance)
results%last_mmpMatdistance = MAX(results%last_mmpMatdistance,MAXVAL(elementDistance))
!IO to out file
WRITE(oUnit,'(A)') "Hubbard 1 Distances:"
......
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