Commit 3d075764 authored by Daniel Wortmann's avatar Daniel Wortmann

Fixed bug in setupMPI

parent 0f724345
......@@ -47,6 +47,8 @@ CONTAINS
mpi%k_list=[(i,i=1,nkpt)]
ALLOCATE(mpi%ev_list(neigd))
mpi%ev_list=[(i,i=1,neigd)]
WRITE(*,*) "--------------------------------------------------------"
RETURN
END IF
#ifdef CPP_MPI
!Distribute the work
......
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