Commit 9ca630e3 authored by Frank Freimuth's avatar Frank Freimuth

Update wann_socmat.F

parent b83277cf
......@@ -78,16 +78,16 @@ c***********************************************************************
CHARACTER*3 chntype
real :: theta,phi,pi
real,allocatable :: ddn(:,:,:) ! 0:lmaxd,ntypd,jspd
real,allocatable :: us(:,:,:) ! 0:lmaxd,ntypd,jspd
real,allocatable :: dus(:,:,:) ! 0:lmaxd,ntypd,jspd
real,allocatable :: uds(:,:,:) ! 0:lmaxd,ntypd,jspd
real,allocatable :: duds(:,:,:)! 0:lmaxd,ntypd,jspd
! real,allocatable :: ddn(:,:,:) ! 0:lmaxd,ntypd,jspd
! real,allocatable :: us(:,:,:) ! 0:lmaxd,ntypd,jspd
! real,allocatable :: dus(:,:,:) ! 0:lmaxd,ntypd,jspd
! real,allocatable :: uds(:,:,:) ! 0:lmaxd,ntypd,jspd
! real,allocatable :: duds(:,:,:)! 0:lmaxd,ntypd,jspd
real,allocatable :: ulos(:,:,:) ! nlod,ntypd,jspd
real,allocatable :: dulos(:,:,:) ! nlod,ntypd,jspd
real,allocatable :: uulon(:,:,:) ! nlod,ntypd,jspd
real,allocatable :: dulon(:,:,:) ! nlod,ntypd,jspd
! real,allocatable :: ulos(:,:,:) ! nlod,ntypd,jspd
! real,allocatable :: dulos(:,:,:) ! nlod,ntypd,jspd
! real,allocatable :: uulon(:,:,:) ! nlod,ntypd,jspd
! real,allocatable :: dulon(:,:,:) ! nlod,ntypd,jspd
COMPLEX,ALLOCATABLE :: ahelp(:,:,:,:)
complex,allocatable :: bhelp(:,:,:,:)
......@@ -138,11 +138,11 @@ c***********************************************************************
+ usdus%uulon(atoms%nlod,atoms%ntype,jspd),
+ usdus%dulon(atoms%nlod,atoms%ntype,jspd))
ALLOCATE( us(0:lmaxd,ntypd,jspd), dus(0:lmaxd,ntypd,jspd),
+ uds(0:lmaxd,ntypd,jspd),duds(0:lmaxd,ntypd,jspd),
+ ddn(0:lmaxd,ntypd,jspd),
+ ulos(nlod,ntypd,jspd),dulos(nlod,ntypd,jspd),
+ uulon(nlod,ntypd,jspd),dulon(nlod,ntypd,jspd))
! ALLOCATE( us(0:lmaxd,ntypd,jspd), dus(0:lmaxd,ntypd,jspd),
! + uds(0:lmaxd,ntypd,jspd),duds(0:lmaxd,ntypd,jspd),
! + ddn(0:lmaxd,ntypd,jspd),
! + ulos(nlod,ntypd,jspd),dulos(nlod,ntypd,jspd),
! + uulon(nlod,ntypd,jspd),dulon(nlod,ntypd,jspd))
CALL spnorb(
> atoms,noco,input,mpi, enpara,
......
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