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

Update wann_socmat.F

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