diff --git a/BloubWorld/bloubspace.f90 b/BloubWorld/bloubspace.f90 index 135c1a6..78d8b3c 100644 --- a/BloubWorld/bloubspace.f90 +++ b/BloubWorld/bloubspace.f90 @@ -72,12 +72,17 @@ module bloubspace type(t_bloubs), intent (out) :: blb 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%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 + if (blb%pz .LT. 0.0) blb%vz = -blb%vz blb%state = 0 blb%alive = .TRUE.