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

frobnicates the knobs

Browse Source
This commit is contained in:
tth
2022-02-09 19:36:27 +01:00
parent 0934b49bc6
commit 5444956a72
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
BloubWorld/bloubspace.f90
View File

@@ -87,10 +87,10 @@ module bloubspace
blb%py = 0.0
blb%seq = blb%seq + 1
endif
if (3.0 .lt. blb%py) then
if (5.0 .lt. blb%py) then
blb%vy = -1.0 * blb%vy
blb%seq = blb%seq + 1
blb%py = 3.0
blb%py = 5.0
endif
if (5.0 .lt. blb%pz) then
@@ -109,7 +109,7 @@ module bloubspace
! ----------------------------------------------------------------
subroutine green_soylent (blb)
type(t_bloubs), intent (inout) :: blb
if (blb%seq .gt. 4) then
if (blb%seq .gt. 5) then
blb%alive = .FALSE.
endif
end subroutine