Commit d6db09df authored by ulrich_y's avatar ulrich_y

Fixed collision in set_options

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