using random random seed

2022-03-22 16:21:36 +01:00 · 2022-03-22 16:21:36 +01:00 · 152a3d5511
commit 152a3d5511
parent e4afd2777d
1 changed files with 2 additions and 0 deletions
--- 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",                &