From 5beab6c306a6eda6a953cccd107a1434712caf0e Mon Sep 17 00:00:00 2001
From: tTh <tth@konrad.lan>
Date: Sat, 3 Jun 2023 11:50:04 +0200
Subject: [PATCH] bla

---
 Modules/mathstuff2.f90 | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 Modules/mathstuff2.f90

diff --git a/Modules/mathstuff2.f90 b/Modules/mathstuff2.f90
new file mode 100644
index 0000000..37bd732
--- /dev/null
+++ b/Modules/mathstuff2.f90
@@ -0,0 +1,33 @@
+module mathstuff2
+
+! XXX This module was a copy of mathstuff.f90 fromthe BloubWorld
+! XXX                will be moved in an other place some day...
+
+  implicit none
+  contains
+
+ ! ----------------------------------------------------------------
+ !   really quick'n'dirty hack
+ !                  not really tested yet...
+
+  subroutine init_random_seed()
+
+    integer, dimension(3) :: tarray
+    integer               :: t3, foo
+    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 engine,
+    ! you MUST use it for initializing the initializer
+    do foo=1, tarray(1)+5
+      dummy = rand()
+    enddo
+
+  end subroutine 
+
+  ! ----------------------------------------------------------------
+end module mathstuff2
+