Commit 72419ce6 authored by ulrich_y's avatar ulrich_y

Use correct cut-off for polylog

parent 78131cc6
......@@ -16,7 +16,7 @@ MODULE globals
! The following parameters control the accuracy of the evaluation
real(kind=prec), protected :: MPLdelta = zero ! if the MPL sum changes less then del it is truncated.
real(kind=prec), protected :: Lidelta = 0._prec ! like MPLdelta but for polylogs
real(kind=prec), protected :: Lidelta = zero ! like MPLdelta but for polylogs
real(kind=prec), protected :: HoelderCircle = 1.1_prec ! when to apply Hoelder convolution?
integer, parameter :: PolyLogCacheSize(2) = (/ 5, 100 /)
! = (/ mmax, n /). At most n polylogs with weight mmax will be cached
......
......@@ -183,7 +183,7 @@ CONTAINS
! All remaining terms
m = n + 1
del = 1._prec
do while (abs(del) > zero)
do while (abs(del) > LiDelta)
zetamn = (-1)**(m-n) * bernoullinumber(1+m-n) / (1+m-n)
fac = fac * m * (m-1)
del = zetamn / fac * logz**m
......
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