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

mergebloubs boilerplate done

Browse Source
This commit is contained in:
tth
2022-02-16 15:59:42 +01:00
parent d9491cc5f9
commit b26618a841
7 changed files with 58 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
BloubWorld/genbloubs.f90
View File

@@ -28,11 +28,12 @@ program genbloubs
do i = 1, nbbloubs
bloub%nick = 'noname '
bloub%alive = .TRUE.
bloub%nick = 'noname '
bloub%num = i + 41
bloub%alive = .TRUE.
call random_pv(bloub)
bloub%radius = 0.025
bloub%seq = 0
bloub%radius = 0.025
bloub%age = 0
write(idu) bloub ! no error control ?