From 053b530c21d88b45d335cad6c750783feb444a85 Mon Sep 17 00:00:00 2001 From: Frank Freimuth 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