don'r rely on halton sequence

not really trustworthy as we saw some pattern for higher dimensional data
2019-03-17 18:06:41 +01:00 · 2019-03-17 18:06:41 +01:00 · 66aa9399a7
parent 6d268b7b37
commit 66aa9399a7
1 changed files with 1 additions and 1 deletions
--- a/src/math.f90
+++ b/src/math.f90
@ -1895,7 +1895,7 @@ real(pReal) function math_sampleGaussVar(meanvalue, stddev, width)
   myWidth = merge(width,3.0_pReal,present(width))                                                  ! use +-3*sigma as default value for scatter if not given
  
   do
-     rnd = halton([6,2])
+     call random_number(rnd)
     scatter = myWidth * (2.0_pReal * rnd(1) - 1.0_pReal)
     if (rnd(2) <= exp(-0.5_pReal * scatter ** 2.0_pReal)) exit                                     ! test if scattered value is drawn
   enddo