Commit 16c220c0 authored by Henning Janssen's avatar Henning Janssen

Temporary fix for second variation soc and tetra

  ev_list size is not compatible with neig
parent 38b7988e
......@@ -69,7 +69,7 @@ MODULE m_tetrahedronInit
ikpt = kpts%ntetra(icorn,itet)
IF(ikpt.GT.kpts%nkpt) CYCLE
fac = REAL(MERGE(1,COUNT(kpts%bkp(:).EQ.ikpt),kpts%nkptf.EQ.0))
neigMax = MINVAL(neig(k(:ncorn)))
neigMax = MIN(MINVAL(neig(k(:ncorn))),SIZE(eig,1))
!$OMP PARALLEL DEFAULT(none) &
!$OMP SHARED(itet,neigMax,ikpt,film,ncorn,k,fac) &
!$OMP SHARED(kpts,eig,weights,eMesh) &
......@@ -143,7 +143,7 @@ MODULE m_tetrahedronInit
ELSE
k(:ncorn) = kpts%ntetra(:ncorn,itet)
ENDIF
neigMax = MINVAL(neig(k(:ncorn)))
neigMax = MIN(MINVAL(neig(k(:ncorn))),SIZE(eig,1))
!$OMP PARALLEL DEFAULT(none) &
!$OMP SHARED(itet,neigMax,ikpt,film,l_dos,ncorn,ne,k,fac) &
!$OMP SHARED(kpts,eig,weights,eMesh,end_weights,del) &
......
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