Small bugfix in eig66_mpi

c3b3f29a · Daniel Wortmann · 0918e4cf · c3b3f29a
Commit c3b3f29a authored Aug 02, 2019 by Daniel Wortmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

io/eig66_mpi.F90 io/eig66_mpi.F90 +1 -0

No files found.
--- a/io/eig66_mpi.F90
+++ b/io/eig66_mpi.F90
@@ -204,6 +204,7 @@ CONTAINS
       ALLOCATE(tmp_real(tmp_size))
       ALLOCATE(tmp_cmplx(tmp_size))
       DO n=1,zmat%matsize2
+          n1=n
          IF (PRESENT(list)) THEN
             IF (n>SIZE(list)) CYCLE
             n1=list(n)