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 ...@@ -193,7 +193,7 @@ CONTAINS
! Now for the lo's ! Now for the lo's
DO ilo = 1, atoms%nlo(n) DO ilo = 1, atoms%nlo(n)
l = atoms%llo(ilo,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
END DO END DO
ENDIF 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