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

minor tweaks

Browse Source
This commit is contained in:
tth
2022-02-09 00:42:32 +01:00
parent c35c00e3da
commit 0934b49bc6
4 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
BloubWorld/movebloubs.f90
View File

@@ -58,7 +58,7 @@ program movebloubs
call bound_a_blob (bloub)
call green_soylent (bloub)
if (.NOT. bloub%alive) then
write(0, '(A)') " KILL!"
! write(0, '(A)') " KILL!"
killed = killed + 1
cycle
endif
@@ -89,7 +89,10 @@ program movebloubs
close(inu) ; close(outu)
write (0, '(I5, A)') killed, " bloubs killed"
if (killed .GT. 0) then
write (0, '(I5, A)') killed, " bloubs killed"
endif
bx = bx / dble(compteur)
by = by / dble(compteur)
bz = bz / dble(compteur)