Commit b32c3cd3 authored by Gregor Michalicek's avatar Gregor Michalicek

Modification of last commit

parent adbdac84
......@@ -2009,7 +2009,7 @@ CONTAINS
IF (ishell > conv(maxl) .AND. maxl /= 0) maxl = maxl - 1
call timestart("harmonics")
call ylm4(maxl, ka, y)
IF(ALL(ka(:).EQ.0.0)) y(2:(maxl+1)**2)=CMPLX(0.0,0.0)
IF(sqrt(sum(ka(:)**2)).LT.1.0e-16) y(2:(maxl+1)**2)=CMPLX(0.0,0.0)
call timestop("harmonics")
cdum = 1.0
lm = 0
......
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