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

no early return required here

This commit is contained in:
Martin Diehl 2018-02-21 08:55:33 +01:00
parent 051f3592ea
commit 6b1c1af609
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/math.f90
View File

@ -1902,9 +1902,7 @@ real(pReal) function math_sampleGaussVar(meanvalue, stddev, width)
if (abs(stddev) < tol_math_check) then if (abs(stddev) < tol_math_check) then
math_sampleGaussVar = meanvalue math_sampleGaussVar = meanvalue
return else
endif
myWidth = merge(width,3.0_pReal,present(width)) ! use +-3*sigma as default value for scatter if not given myWidth = merge(width,3.0_pReal,present(width)) ! use +-3*sigma as default value for scatter if not given
do do
@ -1914,6 +1912,7 @@ real(pReal) function math_sampleGaussVar(meanvalue, stddev, width)
enddo enddo
math_sampleGaussVar = scatter * stddev math_sampleGaussVar = scatter * stddev
endif
end function math_sampleGaussVar end function math_sampleGaussVar