From 514bb1a73f20465deb4967ee4dc5fb173cf4adc3 Mon Sep 17 00:00:00 2001
From: Daniel Wortmann <d.wortmann@fz-juelich.de>
Date: Fri, 15 Feb 2019 13:27:25 +0100
Subject: [PATCH] Update postprocessInput.F90 Ugly fix to ensure normalized
 k-point weights

---
 init/postprocessInput.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/init/postprocessInput.F90 b/init/postprocessInput.F90
index 139588c5..ac9a4b90 100644
--- a/init/postprocessInput.F90
+++ b/init/postprocessInput.F90
@@ -530,7 +530,7 @@ SUBROUTINE postprocessInput(mpi,input,field,sym,stars,atoms,vacuum,obsolete,kpts
         !      The following call to inpeig should not be required.
         !      CALL inpeig(atoms,cell,input,oneD%odd%d1,kpts,enpara)
      END IF
-
+     kpts%wtkpt=kpts%wtkpt/sum(kpts%wtkpt) !Normalize k-point weight
      CALL prp_qfft(stars,cell,noco,input)
 
 
-- 
GitLab