Commit 58f1d848 authored by Henning Janssen's avatar Henning Janssen

This condition is not necessary anymore

parent 20c6cd7b
......@@ -81,7 +81,6 @@ MODULE m_rhonmt21
IF (lplow.GT.lphi) CYCLE m_loop
DO lp = lplow, lphi,2
IF ( MOD(lv+l+lp,2) .NE. 0 ) CYCLE
cil = mi**(l-lp)
coef1 = cil * sphhar%clnu(jmem,lh,ns)
lmp = lp*(lp+1) + mp
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