tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

using random random seed

Browse Source
This commit is contained in:
tth 2022-03-22 16:21:36 +01:00
parent e4afd2777d
commit 152a3d5511
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BloubWorld/genbloubs.f90
View File

@ -21,6 +21,8 @@ program genbloubs
write (0, '(A,I8,A)') & write (0, '(A,I8,A)') &
"*** generating ", nbbloubs, " bloubs to "//trim(filename) "*** generating ", nbbloubs, " bloubs to "//trim(filename)
call init_random_seed()
open(newunit=idu, file=trim(filename), & open(newunit=idu, file=trim(filename), &
form='unformatted', & form='unformatted', &
access="sequential", & access="sequential", &