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

ready for another run ?

Browse Source
This commit is contained in:
tth
2022-02-18 19:30:10 +01:00
parent 64206904ca
commit 47a383f3b6
9 changed files with 66 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
BloubWorld/bloubspace.f90
View File

@@ -11,7 +11,7 @@ module bloubspace
type t_bloubs
character(8) :: nick
logical :: alive
integer :: num
integer :: num ! ???
real :: px, py, pz
real :: vx, vy, vz
real :: radius
@@ -23,18 +23,25 @@ module bloubspace
subroutine random_pv (blb)
type(t_bloubs), intent (inout) :: blb
blb%px = 1.3 * (rand() - 0.50)
blb%py = 0.50 + rand() * 0.50
blb%pz = 2.0 * (rand() - 0.50)
blb%px = 1.35 * (rand() - 0.50)
blb%py = 0.50 + (rand() * 0.50)
blb%pz = 1.90 * (rand() - 0.50)
blb%vx = (rand() - 0.5) / 2.500
blb%vy = (rand() - 0.5) / 4.000
blb%vy = (rand() - 0.1) / 4.000
blb%vz = (rand() - 0.5) / 2.500
blb%alive = .TRUE.
end subroutine
! ----------------------------------------------------------------
! Load a blbs file into an array of bloubs
! ----------------------------------------------------------------
! Dump an array of bloubs to a blbs file.
! ----------------------------------------------------------------
! Display a bloub content to stderr
subroutine display_bloub (blb, message)
type(t_bloubs), intent (in) :: blb
@@ -127,7 +134,7 @@ module bloubspace
subroutine green_soylent (blb)
type(t_bloubs), intent (inout) :: blb
if (blb%age .gt. 5) then
if (blb%age .gt. 8) then
blb%alive = .FALSE.
endif
end subroutine