Commit 65f87277 authored by Daniel Wortmann's avatar Daniel Wortmann

Update mae.F90 corrected factor of 2 in eigenvalue sum.

parent 58008f04
......@@ -111,7 +111,7 @@ CONTAINS
skip=.FALSE.
RETURN
ENDIF
this%evsum(this%directions_done)=results%seigv
this%evsum(this%directions_done)=results%seigv/2.0
skip=.TRUE.
END FUNCTION mae_eval
......
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