Commit d6db09df authored by ulrich_y's avatar ulrich_y

Fixed collision in set_options

parent 380659ed
......@@ -15,7 +15,7 @@ MODULE globals
real(kind=prec), parameter :: pi = 3.1415926535897932384626433832795028841971693993751_prec
! The following parameters control the accuracy of the evaluation
real(kind=prec), protected :: MPLdel = zero ! if the MPL sum changes less then del it is truncated.
real(kind=prec), protected :: MPLdelta = zero ! if the MPL sum changes less then del it is truncated.
integer, protected :: PolylogInfinity = 1000 ! expansion order for Polylogs
real(kind=prec), protected :: HoelderCircle = 1.1_prec ! when to apply Hoelder convolution?
integer, parameter :: PolyLogCacheSize(2) = (/ 5, 100 /)
......@@ -49,7 +49,7 @@ CONTAINS
SUBROUTINE SET_OPTIONS(mpldel, liinf, hcircle)
real(kind=prec), optional :: hcircle, mpldel
integer, optional :: liinf
if (present(mpldel)) MPLdel = mpldel
if (present(MPLdel)) MPLdelta = mpldel
if (present(liinf)) PolyLogInfinity = liinf
if (present(hcircle)) HoelderCircle = hcircle
END SUBROUTINE
......
......@@ -105,7 +105,7 @@ CONTAINS
enddo
if (mod(q,2_ikin) .eq. 1) then
if (abs(t(1)-res).lt.MPLdel/100.) exit
if (abs(t(1)-res).lt.MPLdelta/100.) exit
endif
enddo
res = t(1)
......
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