Commit f10ba7a1 authored by Daniel Wortmann's avatar Daniel Wortmann

Dirty Bugfix for issue #142

parent 0aa079fa
......@@ -202,11 +202,11 @@ CONTAINS
CALL ylm4(atoms%lnonsph(n),vmult,ylm)
IF (.NOT.enough) THEN
l_lo1=.FALSE.
IF ((lapw%rk(k,iintsp).LT.eps).AND.(.NOT.noco%l_ss)) THEN
l_lo1=.TRUE.
ELSE
l_lo1=.FALSE.
ENDIF
! IF ((lapw%rk(k,iintsp).LT.eps).AND.(.NOT.noco%l_ss)) THEN
! l_lo1=.TRUE.
! ELSE
! l_lo1=.FALSE.
! ENDIF
CALL abccoflo(&
atoms,con1, rph(k,iintsp),cph(k,iintsp),ylm,n,&
na,k,lapw%nv(iintsp),l_lo1,alo1,blo1,clo1,&
......
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