math_sampleGaussOri did not treat the special case of zero noise (scatter)

This commit is contained in:
Franz Roters 2007-04-26 11:46:58 +00:00
parent 6fd473eaa7
commit 11cc6d1ee1
1 changed files with 5 additions and 0 deletions

View File

@ -725,6 +725,11 @@
real(pReal), dimension(5) :: rnd real(pReal), dimension(5) :: rnd
real(pReal) noise,scatter,cosScatter real(pReal) noise,scatter,cosScatter
integer(pInt) i integer(pInt) i
if (noise<=0.01) then
math_sampleGaussOri = center
return
endif
! Helming uses different distribution with Bessel functions ! Helming uses different distribution with Bessel functions
! therefore the gauss scatter width has to be scaled differently ! therefore the gauss scatter width has to be scaled differently