Commit e0535c41 authored by Matthias Redies's avatar Matthias Redies

extend nbands over full bz

parent 35510364
......@@ -94,7 +94,7 @@ CONTAINS
endif
endif
allocate(hybdat%nbands(kpts%nkpt), source=0)
allocate(hybdat%nbands(kpts%nkptf), source=0)
if(allocated(hybdat%nobd)) deallocate(hybdat%nobd)
allocate(hybdat%nobd(kpts%nkptf, input%jspins), source=0)
......
......@@ -175,6 +175,7 @@ CONTAINS
! spread hybdat%nobd from IBZ to whole BZ
DO nk = 1, kpts%nkptf
i = kpts%bkp(nk)
hybdat%nbands(nk) = hybdat%nbands(i)
hybdat%nobd(nk,jsp) = hybdat%nobd(i,jsp)
END DO
......
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