Update src/rand.F90

Co-authored-by: Jeffrey Curtis <[email protected]>
compdyn · Dec 3, 2024 · 55ce6d0 · 55ce6d0
1 parent 7bd4ade
commit 55ce6d0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/rand.F90 b/src/rand.F90
@@ -695,7 +695,9 @@ subroutine uuid4_str(uuid)
 
   end subroutine uuid4_str
 
-  FUNCTION pmc_random_geometric(P)
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+  integer function pmc_random_geometric(P)
       ! Generate a random number in geometric distribution with the probability P
       ! Reference: https://www.ucl.ac.uk/~ucakarc/work/software/randgen.f
       implicit none