diff --git a/BloubWorld/bloubspace.f90 b/BloubWorld/bloubspace.f90 index 3b14b73..65bc2c2 100644 --- a/BloubWorld/bloubspace.f90 +++ b/BloubWorld/bloubspace.f90 @@ -85,13 +85,13 @@ module bloubspace blb%pz = coefxyz * (rand() - 0.50) 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) - ! 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) - ! 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%green = 127 + mod(irand(), 127)