Commit 9ca344cb authored by Gregor Michalicek's avatar Gregor Michalicek

Fix usdus in cdn_mt/cdnmt.f90

parent b0aec859
......@@ -250,7 +250,7 @@ CONTAINS
! --> Initializations
!
CALL usdus%init(atoms,jsp_end)
CALL usdus%init(atoms,input%jspins)
uu(:,:,:) = 0.0 ; dd(:,:,:) = 0.0 ; du(:,:,:) = 0.0
IF (noco%l_mperp) THEN
......
......@@ -81,19 +81,10 @@ CONTAINS
CALL timestart("cdnmt")
IF (noco%l_mperp) THEN
ALLOCATE ( usdus%us(0:atoms%lmaxd,atoms%ntype,jspd),usdus%uds(0:atoms%lmaxd,atoms%ntype,jspd) )
ALLOCATE ( usdus%dus(0:atoms%lmaxd,atoms%ntype,jspd),usdus%duds(0:atoms%lmaxd,atoms%ntype,jspd) )
ALLOCATE ( usdus%ddn(0:atoms%lmaxd,atoms%ntype,jspd) )
IF (l_fmpl) THEN
ALLOCATE ( rho21(atoms%jmtd,0:sphhar%nlhd,atoms%ntype) )
rho21(:,:,:) = cmplx(0.0,0.0)
ENDIF
ELSE
ALLOCATE ( usdus%us(0:atoms%lmaxd,atoms%ntype,jsp_start:jsp_end) )
ALLOCATE ( usdus%uds(0:atoms%lmaxd,atoms%ntype,jsp_start:jsp_end) )
ALLOCATE ( usdus%dus(0:atoms%lmaxd,atoms%ntype,jsp_start:jsp_end) )
ALLOCATE ( usdus%duds(0:atoms%lmaxd,atoms%ntype,jsp_start:jsp_end) )
ALLOCATE ( usdus%ddn(0:atoms%lmaxd,atoms%ntype,jsp_start:jsp_end) )
ENDIF
!$OMP PARALLEL DEFAULT(none) &
......
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