Commit 1348f241 authored by Henning Janssen's avatar Henning Janssen

Stupid mistake

parent bd3a379c
......@@ -147,7 +147,7 @@ MODULE m_tetrahedronInit
!The array k is only for getting the right indices in the eigenvalues
k = kpts%ntetra(:,itet)
DO i = 1, SIZE(k)
IF(i==ikpt) icorn = i
IF(k(i)==ikpt) icorn = i
ENDDO
where(k.GT.kpts%nkpt) k = kpts%bkp(k)
!$OMP parallel do default(none) schedule(dynamic,1) &
......
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