Commit 053b530c authored by Frank Freimuth's avatar Frank Freimuth

Update wann_socmat.F: Kick out unused variables.

parent 283e662f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment