no early return required here

2018-02-21 08:55:33 +01:00 · 2018-02-21 08:55:33 +01:00 · 6b1c1af609
parent 051f3592ea
commit 6b1c1af609
1 changed files with 10 additions and 11 deletions
--- a/src/math.f90
+++ b/src/math.f90
@ -1902,9 +1902,7 @@ real(pReal) function math_sampleGaussVar(meanvalue, stddev, width)

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

   math_sampleGaussVar = scatter * stddev
+ endif

 end function math_sampleGaussVar