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

early return not needed here

This commit is contained in:
Martin Diehl 2018-02-12 11:45:42 +01:00
parent 2254746177
commit b6abbfca9d
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/math.f90
View File

@ -1783,11 +1783,9 @@ function math_sampleGaussOri(center,noise)
real(pReal), dimension(3), parameter :: ORIGIN = 0.0_pReal real(pReal), dimension(3), parameter :: ORIGIN = 0.0_pReal
real(pReal), dimension(5) :: rnd real(pReal), dimension(5) :: rnd
if (abs(noise) < tol_math_check) then noScatter: if (abs(noise) < tol_math_check) then
math_sampleGaussOri = center math_sampleGaussOri = center
return else noScatter
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
scatter = 0.95_pReal * noise scatter = 0.95_pReal * noise
@ -1803,6 +1801,7 @@ function math_sampleGaussOri(center,noise)
enddo enddo
math_sampleGaussOri = math_RtoEuler(math_mul33x33(math_EulerToR(disturb),math_EulerToR(center))) math_sampleGaussOri = math_RtoEuler(math_mul33x33(math_EulerToR(disturb),math_EulerToR(center)))
endif noScatter
end function math_sampleGaussOri end function math_sampleGaussOri