Commit bb20fec9 authored by Gregor Michalicek's avatar Gregor Michalicek

Fix wrong indexing in types/types_enpara.F90

parent adf05139
......@@ -193,7 +193,7 @@ CONTAINS
! Now for the lo's
DO ilo = 1, atoms%nlo(n)
l = atoms%llo(ilo,n)
IF( lo_done(ilo,n,jsp)) CALL priv_write(.TRUE.,l,n,jsp,enpara%qn_ello(ilo,n,jsp),elo_lo(l,n),elo_up(l,n),enpara%ello0(ilo,n,jsp))
IF( lo_done(ilo,n,jsp)) CALL priv_write(.TRUE.,l,n,jsp,enpara%qn_ello(ilo,n,jsp),elo_lo(ilo,n),elo_up(ilo,n),enpara%ello0(ilo,n,jsp))
END DO
END DO
ENDIF
......
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