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