Commit 973f8ddf authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected double allocation of kpts%wtkpt array

...this was due to one of the last commits.
parent ffc7c60d
......@@ -1945,8 +1945,6 @@ SUBROUTINE r_inpXML(&
CALL od_kptsgen (kpts%nkpt)
END IF
END IF
kpts%nkpt = kpts%nkpt
ALLOCATE(kpts%wtkpt(kpts%nkpt))
sumWeight = 0.0
DO i = 1, kpts%nkpt
sumWeight = sumWeight + kpts%wtkpt(i)
......@@ -1955,7 +1953,6 @@ SUBROUTINE r_inpXML(&
kpts%posScale = 1.0
DO i = 1, kpts%nkpt
kpts%wtkpt(i) = kpts%wtkpt(i) / sumWeight
kpts%wtkpt(i) = kpts%wtkpt(i)
END DO
! Generate missing general parameters
......
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