Commit f11ee67a authored by Daniel Wortmann's avatar Daniel Wortmann

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

parents d2291fd2 6b525a0a
......@@ -68,12 +68,6 @@ MODULE m_tlo
dvulo(lo,lp,lh) = 0.0
ELSE
DO i = 1,atoms%jri(ntyp)
PRINT *,i,lp,lo,lh
PRINT *,SHAPE(f)
CALL FLUSH()
PRINT *,f(i,1:2,lp)
PRINT *,flo(i,1:2,lo)
PRINT *,vr(i,lh)
x(i) = (f(i,1,lp)*flo(i,1,lo)+ f(i,2,lp)*flo(i,2,lo))*vr(i,lh)
END DO
CALL intgr3(x,atoms%rmsh(:,ntyp),atoms%dx(ntyp),atoms%jri(ntyp),uvulo(lo,lp,lh))
......
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