From 6a78a83bb614d98b9601258a5d86dc46f336a7e6 Mon Sep 17 00:00:00 2001
From: Daniel Wortmann <d.wortmann@fz-juelich.de>
Date: Fri, 13 Oct 2017 16:03:16 +0200
Subject: [PATCH] Small bugfix to create correct occupations

---
 inpgen/atom_input.f | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/inpgen/atom_input.f b/inpgen/atom_input.f
index 9f0a1181..2c0487c6 100644
--- a/inpgen/atom_input.f
+++ b/inpgen/atom_input.f
@@ -494,7 +494,9 @@ c           the total spin is maximized
               ELSE
                 up = coreocc(i,n)
                 dn = 0
-              END IF
+             END IF
+             upreal=up
+             dnreal=dn
 
 c           in s and p states equal occupation of up and down states
 
-- 
GitLab