From 36be5e326ba3cd86b1a937d7a9374718e1710db3 Mon Sep 17 00:00:00 2001
From: Daniel Wortmann <d.wortmann@fz-juelich.de>
Date: Wed, 28 Mar 2018 18:08:00 +0200
Subject: [PATCH] Bugfix for 73245850e64a63d7dcaba26aa164a368b5c2ef90

---
 mpi/mpi_bc_all.F90   |  4 ++--
 types/types_misc.F90 | 18 +++++++++---------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/mpi/mpi_bc_all.F90 b/mpi/mpi_bc_all.F90
index fa7fd846..9399423c 100644
--- a/mpi/mpi_bc_all.F90
+++ b/mpi/mpi_bc_all.F90
@@ -70,7 +70,7 @@ CONTAINS
        l(1)=input%eonly ; l(2)=input%l_useapw ; l(3)=input%secvar ; l(4)=sym%zrfs ; l(5)=input%film
        l(6)=sym%invs ; l(7)=sym%invs2 ; l(8)=input%l_bmt ; l(9)=input%l_f ; l(10)=input%cdinf
        l(11)=banddos%dos ; l(12) = hybrid%l_hybrid ; l(13)=banddos%vacdos ; l(14)=input%integ ; l(15)=sliceplot%iplot
-       l(16)=input%strho ; l(17)=input%swsp ; l(18)=input%lflip ; l(19)=obsolete%l_f2u ; l(20)=obsolete%l_u2f
+       l(16)=input%strho ; l(17)=input%swsp ; l(18)=input%lflip 
        l(21)=input%pallst ; l(22)=sliceplot%slice ; l(23)=noco%l_soc ; l(24)=vacuum%starcoeff
        l(25)=noco%l_noco ; l(26)=noco%l_ss; l(27)=noco%l_mperp; l(28)=noco%l_constr
        l(29)=oneD%odd%d1 ; l(30)=jij%l_J ; l(31)=jij%l_disp ; l(32)=input%ctail ; l(33)=banddos%l_orb
@@ -108,7 +108,7 @@ CONTAINS
     oneD%odd%d1=l(29) ; jij%l_J=l(30) ; jij%l_disp=l(31) ; input%ctail=l(32)
     noco%l_noco=l(25) ; noco%l_ss=l(26) ; noco%l_mperp=l(27) ; noco%l_constr=l(28)
     input%pallst=l(21) ; sliceplot%slice=l(22) ; noco%l_soc=l(23) ; vacuum%starcoeff=l(24)
-    input%strho=l(16) ; input%swsp=l(17) ; input%lflip=l(18) ; obsolete%l_f2u=l(19) ; obsolete%l_u2f=l(20)
+    input%strho=l(16) ; input%swsp=l(17) ; input%lflip=l(18)  
     banddos%dos=l(11) ; hybrid%l_hybrid=l(12) ; banddos%vacdos=l(13) ; banddos%l_orb=l(33) ; banddos%l_mcd=l(34)
     input%integ=l(14) ; sliceplot%iplot=l(15)
     sym%invs=l(6) ; sym%invs2=l(7) ; input%l_bmt=l(8) ; input%l_f=l(9) ; input%cdinf=l(10)
diff --git a/types/types_misc.F90 b/types/types_misc.F90
index e02fed9f..d2df8a08 100644
--- a/types/types_misc.F90
+++ b/types/types_misc.F90
@@ -460,10 +460,10 @@ MODULE m_types_misc
   END TYPE t_dimension
 
   TYPE t_Jij
-     LOGICAL :: l_J
-     INTEGER :: nqpt
-     INTEGER :: nqptd
-     INTEGER ::phnd
+     LOGICAL :: l_J   !
+     INTEGER :: nqpt  !
+     INTEGER :: nqptd !
+     INTEGER ::phnd   
      INTEGER ::nsh
      INTEGER ::mtypes
      INTEGER :: nmopq(3)
@@ -471,7 +471,7 @@ MODULE m_types_misc
      REAL    :: qn
      INTEGER :: nmagn
      INTEGER :: nkpt_l
-     LOGICAL :: l_disp
+     LOGICAL :: l_disp !
      LOGICAL :: l_wr
      LOGICAL :: l_jenerg
      REAL, ALLOCATABLE :: qj(:,:)
@@ -588,10 +588,10 @@ MODULE m_types_misc
 
   TYPE t_obsolete
      INTEGER:: lepr !floating energy parameters...
-     LOGICAL:: disp
-     INTEGER:: ndvgrd
-     REAL   :: chng
-     LOGICAL :: lwb
+     LOGICAL:: disp   !remove ->potmix
+     INTEGER:: ndvgrd !remove
+     REAL   :: chng   !remove
+     LOGICAL :: lwb   !remove
   END TYPE t_obsolete
 
 
-- 
GitLab