Commit 127a0fb6 authored by Gregor Michalicek's avatar Gregor Michalicek

Added missing initialization of lapw%nv in eigen.F90.

The problem is that this array has size 2 and in hsmt_nonsph the maximum
value of this array is used for some array allocation. If the system under
investigation only has a single spin the 2nd value is undefined.

(found with valgrind, only theoretical error source so far)
parent 600d2bb4
......@@ -453,7 +453,7 @@ CONTAINS
!---> set up lapw list
!
CALL timestart("Setup of LAPW")
lapw%rk = 0 ; lapw%k1 = 0 ; lapw%k2 = 0 ; lapw%k3 = 0
lapw%rk = 0 ; lapw%k1 = 0 ; lapw%k2 = 0 ; lapw%k3 = 0 ; lapw%nv = 0
CALL apws(DIMENSION,input,noco, kpts,nk,cell,l_zref, mpi%n_size,jsp, bkpt,lapw,matind,nred)
CALL timestop("Setup of LAPW")
......
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