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",                &