adding mathstuff

2022-02-08 13:25:04 +01:00
parent 5c6ceb9a81
commit c8d490b8be
2 changed files with 30 additions and 4 deletions
--- a/BloubWorld/mathstuff.f90
+++ b/BloubWorld/mathstuff.f90
@@ -0,0 +1,23 @@
+module mathstuff
+
+  implicit none
+
+  contains
+
+  ! ----------------------------------------------------------------
+
+  subroutine init_random_seed()
+
+    integer, dimension(3) :: tarray
+    integer t3
+
+    call itime(tarray)
+    t3 = 200*tarray(1) + 20*tarray(2) + tarray(3)
+    print *, tarray, ' --> ', t3
+    call srand(t3)
+
+  end subroutine 
+
+  ! ----------------------------------------------------------------
+end module mathstuff
+