From 053b530c21d88b45d335cad6c750783feb444a85 Mon Sep 17 00:00:00 2001
From: Frank Freimuth <f.freimuth@fz-juelich.de>
Date: Tue, 17 Sep 2019 17:07:59 +0200
Subject: [PATCH] Update wann_socmat.F: Kick out unused variables.

---
 wannier/wann_socmat.F | 28 ++++++----------------------
 1 file changed, 6 insertions(+), 22 deletions(-)

diff --git a/wannier/wann_socmat.F b/wannier/wann_socmat.F
index 42bc0775..5e2f1084 100644
--- a/wannier/wann_socmat.F
+++ b/wannier/wann_socmat.F
@@ -8,11 +8,10 @@
       contains
       subroutine wann_socmat(
      >               mpi,enpara,input,noco,atoms,
-     >               lmaxd,ntypd,nlod,natd,neigd,
-     >               llod,jmtd,jspd,nlhd,neq,
-     >               ntype,theta_in,phi_in,jspins,irank,
-     >               jri,lmax,dx,rmsh,el,ello,nlo,llo,
-     >               l_dulo,ulo_der,vr,
+     >               lmaxd,natd,neigd,
+     >               llod,jspd,
+     >               theta_in,phi_in,jspins,irank,
+     >               vr,
      >               acof,bcof,chelp,
      <               hsomtx)
 c***********************************************************************
@@ -36,34 +35,19 @@ c***********************************************************************
       TYPE(t_atoms),INTENT(IN)    :: atoms
 
       integer, intent(in) :: lmaxd
-      integer, intent(in) :: ntypd
-      integer, intent(in) :: nlod
       integer, intent(in) :: natd
       integer, intent(in) :: neigd
 
       integer, intent(in) :: llod
-      integer, intent(in) :: jmtd
       integer, intent(in) :: jspd
-      integer, intent(in) :: nlhd
-      integer, intent(in) :: neq(:) !ntype
 
-      integer, intent(in) :: ntype
+
       real,    intent(in) :: theta_in
       real,    intent(in) :: phi_in
       integer, intent(in) :: jspins
       integer, intent(in) :: irank
 
-      integer, intent(in) :: jri(:)  ! ntypd
-      integer, intent(in) :: lmax(:) ! ntypd
-      real,    intent(in) :: dx(:)   ! ntypd
-      real,    intent(in) :: rmsh(:,:)  ! jmtd,ntypd
-      real,    intent(in) :: el(0:,:,:) ! 0:lmaxd,ntypd,max(2,jspd)
-      real,    intent(in) :: ello(:,:,:)! nlod,ntypd,max(2,jspd)
-      integer, intent(in) :: nlo(:)     ! ntypd
-      integer, intent(in) :: llo(:,:)   ! nlod,ntypd
-
-      logical, intent(in) :: l_dulo(:,:)  ! l_dulo(nlod,ntypd)
-      integer, intent(in) :: ulo_der(:,:) ! ulo_der(nlod,ntypd)
+
       real,    intent(in) :: vr(:,0:,:,:)    ! jmtd,0:nlhd,ntypd,jspd   
   
       complex, intent(in) :: acof(:,0:,:,:) !acof(noccbd,0:lmd,natd,jspd)
-- 
GitLab