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

better random_pv

Browse Source
This commit is contained in:
tth 2022-03-18 22:06:12 +01:00
parent ed2b04caeb
commit cf1323e1a8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
BloubWorld/bloubspace.f90
View File

@ -72,12 +72,17 @@ module bloubspace
type(t_bloubs), intent (out) :: blb type(t_bloubs), intent (out) :: blb
blb%px = 4.33 * (rand() - 0.50) blb%px = 4.33 * (rand() - 0.50)
blb%py = 3.33 * (rand() - 0.50) blb%py = 3.70 * (rand() - 0.50)
blb%pz = 4.51 * (rand() - 0.50) blb%pz = 4.51 * (rand() - 0.50)
blb%vx = (rand()) / 2.000 blb%vx = (rand()) / 2.000
blb%vy = (rand()) / 2.900 if (blb%px .LT. 0.0) blb%vx = -blb%vx
blb%vy = (rand()) / 3.200
if (blb%py .LT. 0.0) blb%vy = -blb%vx
blb%vz = (rand()) / 2.000 blb%vz = (rand()) / 2.000
if (blb%pz .LT. 0.0) blb%vz = -blb%vz
blb%state = 0 blb%state = 0
blb%alive = .TRUE. blb%alive = .TRUE.