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

renaming a func

Browse Source
This commit is contained in:
tTh
2024-01-25 19:13:45 +01:00
parent 34da09281e
commit bf487c389c
3 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
BloubWorld/genbloubs.f90
View File

@@ -33,7 +33,7 @@ program genbloubs
bloub%nick = 'noname '
bloub%num = i + 41
call random_pv(bloub)
call make_a_random_bloub(bloub)
bloub%radius = 0.035 + (0.03*rand())
write(idu) bloub ! no error control ?