Commit 1dd5b87f authored by Daniel Wortmann's avatar Daniel Wortmann

Fix for spin-spiral calculations. Should solve #233

parent d686436d
......@@ -227,7 +227,7 @@ CONTAINS
!$OMP& SHARED(lapw,gkrot,lmax,c_ph,iintsp,ab,fj,gj,abclo,cell,atoms) &
!$OMP& SHARED(alo1,blo1,clo1,ab_size,na,n) &
!$OMP& PRIVATE(k,vmult,ylm,l,ll1,m,lm,term,invsfct,lo,nkvec)
DO k = 1,lapw%nv(1)
DO k = 1,lapw%nv(iintsp)
!--> generate spherical harmonics
vmult(:) = gkrot(:,k)
CALL ylm4(lmax,vmult,ylm)
......
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