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

pimping the bloubworld

Browse Source
This commit is contained in:
tTh
2024-01-25 21:44:49 +01:00
parent bf487c389c
commit 60dac4d948
6 changed files with 35 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
BloubWorld/movebloubs.f90
View File

@@ -83,28 +83,28 @@ program movebloubs
enddo ! end of main loop
write(0, '(I5,1X,A)') compteur, "bloubs processed"
write(0, '(1X,I0,1X,A)') compteur, "bloubs processed"
! ok, we have read all the bloubs in the input file
! insert some fancy conditional here
if (compteur .LT. 200) then
call add_more_bloubs(outu, 4, 0.1056)
call add_more_bloubs(outu, 4, 0.026)
endif
! insert some very fancy conditional here
if (compteur .LT. 800) then
rnd = rand()
write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd
! write (0, '(A,1X,F9.6)') "try to add bloubs, rnd is", rnd
if (rnd .LT. 0.0604) then
call add_more_bloubs(outu, 11, 0.099)
call add_more_bloubs(outu, 11, 0.019)
endif
endif
close(inu) ; close(outu)
if (killed .GT. 0) then
write (0, '(I5,A)') killed, " bloubs killed"
write (0, '(1X,I0,A)') killed, " bloubs killed"
endif
bx = bx / dble(compteur)
@@ -128,7 +128,7 @@ contains
bloub%nick = 'newbie '
call make_a_random_bloub(bloub)
bloub%radius = rayon + (0.15*rand())
bloub%radius = rayon + (0.05*rand())
bloub%age = 1
bloub%alive = .TRUE.
bloub%num = mod(irand(), 42)