From 64206904caccd972f4860108d4ee8a45a2dc4cb7 Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Thu, 17 Feb 2022 18:08:58 +0100
Subject: [PATCH] fixing the crypto-fix

---
 BloubWorld/mathstuff.f90 | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/BloubWorld/mathstuff.f90 b/BloubWorld/mathstuff.f90
index fd34426..537a4d4 100644
--- a/BloubWorld/mathstuff.f90
+++ b/BloubWorld/mathstuff.f90
@@ -5,17 +5,22 @@ module mathstuff
 
   ! ----------------------------------------------------------------
   !   really quick'n'dirty hack
+  !                  not working yet...
 
   subroutine init_random_seed()
 
     integer, dimension(3) :: tarray
-    integer t3
-
+    integer               :: t3
+    real                  :: dummy
     call itime(tarray)
     t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
     write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
     call srand(t3)
 
+    ! after initializing the random generator,
+    ! you MUST use it for initializin the initialier
+    dummy = rand()
+
   end subroutine 
 
   ! ----------------------------------------------------------------