Dirty Bugfix for issue #142

f10ba7a1 · Daniel Wortmann · 0aa079fa · f10ba7a1
Commit f10ba7a1 authored Sep 26, 2017 by Daniel Wortmann
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

eigen/hsmt_extra.F90 eigen/hsmt_extra.F90 +5 -5

No files found.
--- a/eigen/hsmt_extra.F90
+++ b/eigen/hsmt_extra.F90
@@ -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,&