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

change the V setup

Browse Source
This commit is contained in:
tTh
2026-06-17 07:36:14 +02:00
parent 6d5c8d6c5f
commit 95e89f0c5f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
BloubWorld/bloubspace.f90
View File

@@ -85,13 +85,13 @@ module bloubspace
blb%pz = coefxyz * (rand() - 0.50) blb%pz = coefxyz * (rand() - 0.50)
blb%vx = (rand() / 9.000) blb%vx = (rand() / 9.000)
! if (blb%px .LT. 0.0) blb%vx = -blb%vx if (blb%px .LT. 0.0) blb%vx = -blb%vx
blb%vy = -0.10 + (rand() / 11.000) blb%vy = -0.10 + (rand() / 11.000)
! if (blb%py .LT. 0.0) blb%vy = -blb%vy if (blb%py .LT. 0.0) blb%vy = -blb%vy
blb%vz = (rand() / 10.000) blb%vz = (rand() / 10.000)
! if (blb%pz .LT. 0.0) blb%vz = -blb%vz if (blb%pz .LT. 0.0) blb%vz = -blb%vz
blb%red = mod(irand(), 256) blb%red = mod(irand(), 256)
blb%green = 127 + mod(irand(), 127) blb%green = 127 + mod(irand(), 127)