Commit 3679031c authored by Frank Freimuth's avatar Frank Freimuth

Update wann_socmat_vec.F

parent a627cfb2
......@@ -70,7 +70,7 @@ c***********************************************************************
complex, intent(out):: hsomtx_vec(:,:,:,:,:) !(2,2,neigd,neigd,3)
integer :: n,l,nwdd,nw,ispin,ie,na,ll1,m,lm,i,j,i1,i2,nsz(2)
integer :: n,l,nwdd,nw,ispin,ie,na,ll1,m,lm,i,j,i1,i2,nsz(2),compo
real :: s(3),r2
logical :: l_all
CHARACTER*3 chntype
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