Commit c3b3f29a authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix in eig66_mpi

parent 0918e4cf
......@@ -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)
......
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