Commit 349c6a0a authored by Gregor Michalicek's avatar Gregor Michalicek

More spin-dependent preparations for the abcof refactoring

parent 6aeb0d33
......@@ -142,8 +142,8 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,nococonv,input,banddos,cell,atoms,
jsp_end = jspin
END IF
ALLOCATE (f(atoms%jmtd,2,0:atoms%lmaxd,jsp_start:jsp_end)) ! Deallocation before mpi_col_den
ALLOCATE (g(atoms%jmtd,2,0:atoms%lmaxd,jsp_start:jsp_end))
ALLOCATE (f(atoms%jmtd,2,0:atoms%lmaxd,input%jspins)) ! Deallocation before mpi_col_den
ALLOCATE (g(atoms%jmtd,2,0:atoms%lmaxd,input%jspins))
ALLOCATE (flo(atoms%jmtd,2,atoms%nlod,input%jspins))
! Initializations
......@@ -179,7 +179,7 @@ SUBROUTINE cdnval(eig_id, mpi,kpts,jspin,noco,nococonv,input,banddos,cell,atoms,
8000 FORMAT (/,/,10x,'valence density: spin=',i2)
DO iType = 1, atoms%ntype
DO ispin = jsp_start, jsp_end
DO ispin = 1, input%jspins
CALL genMTBasis(atoms,enpara,vTot,mpi,iType,ispin,usdus,f(:,:,0:,ispin),g(:,:,0:,ispin),flo(:,:,:,ispin),hub1inp%l_dftspinpol)
END DO
IF (noco%l_mperp.OR.banddos%l_jDOS) CALL denCoeffsOffdiag%addRadFunScalarProducts(atoms,f,g,flo,iType)
......
......@@ -128,8 +128,8 @@ MODULE m_corespec_eval
real, intent(in) :: efermi
integer, intent(in) :: msh
real, intent (in) :: vr(atoms%jmtd,atoms%ntype,jspins)
real, intent (in) :: f(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
real, intent (in) :: g(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
real, intent (in) :: f(atoms%jmtd,2,0:atoms%lmaxd,jspins)
real, intent (in) :: g(atoms%jmtd,2,0:atoms%lmaxd,jspins)
integer :: nr,lx,lax,lin,lix,nqv,nen,nex
......
......@@ -30,8 +30,8 @@ CONTAINS
INTEGER, INTENT (IN) :: itype
INTEGER, INTENT (IN) :: jspin
REAL, INTENT (IN) :: vr(atoms%jmtd,atoms%ntype,input%jspins)
REAL, INTENT (IN) :: f(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
REAL, INTENT (IN) :: g(atoms%jmtd,2,0:atoms%lmaxd,jspin:jspin)
REAL, INTENT (IN) :: f(atoms%jmtd,2,0:atoms%lmaxd,input%jspins)
REAL, INTENT (IN) :: g(atoms%jmtd,2,0:atoms%lmaxd,input%jspins)
! Locals ...
......
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