From 152a3d55111859800fac654573cbabd917f9d191 Mon Sep 17 00:00:00 2001
From: tth <tth@konrad.lan>
Date: Tue, 22 Mar 2022 16:21:36 +0100
Subject: [PATCH] using random random seed

---
 BloubWorld/genbloubs.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/BloubWorld/genbloubs.f90 b/BloubWorld/genbloubs.f90
index 335de8f..aeac7b2 100644
--- a/BloubWorld/genbloubs.f90
+++ b/BloubWorld/genbloubs.f90
@@ -21,6 +21,8 @@ program genbloubs
   write (0, '(A,I8,A)') &
   "*** generating ", nbbloubs, " bloubs to "//trim(filename)
 
+  call init_random_seed()
+
    open(newunit=idu, file=trim(filename),            &
                  form='unformatted',                 &
                  access="sequential",                &