Skip to content

GitLab

fleur
fleur
Commit 5d0533ec authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files
Options

Merge branch 'develop' of iffgit.fz-juelich.de:fleur/fleur into develop

parents ef0bd86c 5a9110fc
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 0 deletions
eigen_soc/ssomat.F90
View file @ 5d0533ec
...@@ -272,6 +272,7 @@ CONTAINS ...@@ -272,6 +272,7 @@ CONTAINS
DO m1 = -l, l DO m1 = -l, l
DO jsloc2= 1,2 DO jsloc2= 1,2
sc(jsloc2,m1,ilo) = CMPLX(0.,0.) sc(jsloc2,m1,ilo) = CMPLX(0.,0.)
IF (l==0) CYCLE
DO m2= -l, l DO m2= -l, l
sc(jsloc2,m1,ilo) = sc(jsloc2,m1,ilo) +& sc(jsloc2,m1,ilo) = sc(jsloc2,m1,ilo) +&
CONJG(ccof2(m2,band2,ilo,na,jsloc2,js2))& CONJG(ccof2(m2,band2,ilo,na,jsloc2,js2))&
...@@ -344,6 +345,7 @@ CONTAINS ...@@ -344,6 +345,7 @@ CONTAINS
DO ilo = 1, atoms%nlo(n) ! LO-part DO ilo = 1, atoms%nlo(n) ! LO-part
l = atoms%llo(ilo,n) l = atoms%llo(ilo,n)
IF (l==0) CYCLE
DO m1 = -l, l DO m1 = -l, l
lm1= l*(l+1) + m1 lm1= l*(l+1) + m1
......
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