From 3343c48588410c7f77cee74c94f12c43b9955e0c Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Thu, 17 Feb 2022 13:41:09 +0100
Subject: [PATCH] better crypto security in sranding

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

diff --git a/BloubWorld/mathstuff.f90 b/BloubWorld/mathstuff.f90
index f0851ab..fd34426 100644
--- a/BloubWorld/mathstuff.f90
+++ b/BloubWorld/mathstuff.f90
@@ -1,7 +1,6 @@
 module mathstuff
 
   implicit none
-
   contains
 
   ! ----------------------------------------------------------------
@@ -13,8 +12,8 @@ module mathstuff
     integer t3
 
     call itime(tarray)
-    t3 = 200*tarray(1) + 20*tarray(2) + tarray(3)
-    print *, tarray, ' --> ', t3
+    t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
+    write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
     call srand(t3)
 
   end subroutine