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

cramicule is comming !

Browse Source
This commit is contained in:
tTh
2026-06-25 10:09:03 +02:00
parent de43a1810c
commit d7da858380
21 changed files with 66 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
BloubWorld/movebloubs.f90
View File

@@ -54,7 +54,7 @@ program movebloubs
do
read (unit=inu, iostat=errcode) bloub
if (0 .ne. errcode) then
! may be we got an EOF ?
! may be we got an EOF ? XXX
exit
endif
@@ -97,16 +97,18 @@ program movebloubs
! ok, we have read all the bloubs from the input file
! insert some fancy conditional here
if (compteur .LT. 50) then
call add_more_bloubs(outu, 5, 0.046)
! insert some fancy conditional here for adding new
! bloubs to the bloubiverse
if (compteur .LT. 180) then
write (0, *) '... rearmement demographique ...'
call add_more_bloubs(outu, 19, 0.046)
endif
rnd = rand()
! write(0, *) 'rnd= ', rnd
if (rnd .LT. 0.18) then
write (0, *) '... random of life ...'
call add_more_bloubs(outu, 5, 0.056)
write (0, *) '... the random of life ...'
call add_more_bloubs(outu, 15, 0.056)
endif
close(inu) ; close(outu)