Merge pull request #26 from Space-Systems/manschub-patch-2

Update slam_randomNumber.f90
Space-Systems · Jan 9, 2025 · 5e4600f · 5e4600f
2 parents a6afc50 + cfdd70c
commit 5e4600f
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/math/slam_randomNumber.f90 b/src/math/slam_randomNumber.f90
@@ -213,10 +213,12 @@ real(dp) function getRandomNumber(iopt, xmean, xsigma)
     else if(iopt == RANDOM_NORMAL .or. iopt == RANDOM_LOG_NORMAL) then
 
       !** check if there is already a number available
-      if(isOtherNumber(iopt) .and. (xmean_prev == xmean) .and. (xsigma_prev == xsigma)) then
+      if(isOtherNumber(iopt)) then 
+        if ((xmean_prev == xmean) .and. (xsigma_prev == xsigma)) then
 
-        getRandomNumber     = otherNumber(iopt)
-        isOtherNumber(iopt) = .false.
+          getRandomNumber     = otherNumber(iopt)
+          isOtherNumber(iopt) = .false.
+        end if
 
       else  !** generate two new numbers