223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
trunk/math.f90
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