Commit 5782db2e authored by Matthias Redies's avatar Matthias Redies

move read_z up

parent 3eb270a6
......@@ -87,6 +87,7 @@
! read in cmt
DO ikpt = 1, nkpti
call read_z(atoms, cell, hybdat, kpts, sym, noco, input, ikpt, jsp, z(ikpt))
call read_cmt(cmt(:, :, :, ikpt), ikpt)
END DO
......@@ -227,9 +228,6 @@
allocate(carr1(maxval(hybdat%nbands), (atoms%lmaxd + 1)**2))
allocate(carr2(maxval(hybdat%nbands), (atoms%lmaxd + 1)**2))
allocate(carr3(maxval(hybdat%nbands), (atoms%lmaxd + 1)**2))
DO ikpt = 1, nkpti
call read_z(atoms, cell, hybdat, kpts, sym, noco, input, ikpt, jsp, z(ikpt))
END DO
iatom = 0
DO itype = 1, atoms%ntype
......
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