Commit 842d29fd authored by Gregor Michalicek's avatar Gregor Michalicek

Set kpts%posScale to 1 after using it in io/r_inpXML.F90

This corrects the output of this variable in out.xml.
parent c7c3391b
...@@ -1836,10 +1836,10 @@ SUBROUTINE r_inpXML(& ...@@ -1836,10 +1836,10 @@ SUBROUTINE r_inpXML(&
sumWeight = sumWeight + kpts%weight(i) sumWeight = sumWeight + kpts%weight(i)
kpts%bk(:,i) = kpts%bk(:,i) / kpts%posScale kpts%bk(:,i) = kpts%bk(:,i) / kpts%posScale
END DO END DO
kpts%posScale = 1.0
DO i = 1, kpts%nkpt DO i = 1, kpts%nkpt
kpts%weight(i) = kpts%weight(i) / sumWeight kpts%weight(i) = kpts%weight(i) / sumWeight
kpts%wtkpt(i) = kpts%weight(i) kpts%wtkpt(i) = kpts%weight(i)
WRITE(*,'(i0,4f12.6)') i, kpts%bk(1,i), kpts%bk(2,i), kpts%bk(3,i), kpts%weight(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