Commit 97fb049d authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for MPI version

parent db5a543b
......@@ -552,6 +552,7 @@ CONTAINS
zMat%z_c(:lapw%nmat,:ne_found) = cmplx(0.0,0.0)
ENDIF
endif
zmat%nbands=ne_found
CALL write_eig(eig_id, nk,jsp,ne_found,ne_all,lapw%nv(jsp),lapw%nmat,&
lapw%k1(:lapw%nv(jsp),jsp),lapw%k2 (:lapw%nv(jsp),jsp),lapw%k3(:lapw%nv(jsp),jsp),&
bkpt, kpts%wtkpt(nk),eig(:ne_found),enpara%el0(0:,:,jsp), enpara%ello0(:,:,jsp),enpara%evac0(:,jsp),&
......
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