naptime reached

2026-09-20 10:47:43 +02:00
parent d7da858380
commit d8e3d1c01b
12 changed files with 35 additions and 39 deletions
@@ -49,7 +49,7 @@ program mergebloubs
        contacts = contacts + 1
        call merge_two_bloubs(bloubs(ia), bloubs(ib), merged)
        bloubs(ia)       = merged
-        bloubs(ia)%nick  = "marged"
+        bloubs(ia)%nick  = "merged"
        bloubs(ia)%state = 1;
        bloubs(ib)%alive = .FALSE.
        write(0, *) "  *** merged ", ia, " and ", ib,       &
@@ -98,9 +98,9 @@ contains
      blr%vy = (bla%vy + blb%vy) / 2.0
      blr%vz = (bla%vz + blb%vz) / 2.0
      if (0.001 .GT. rand()) then
-         blr%vx = blr%vx * 1.04
-         blr%vy = blr%vy * 1.04
-         blr%vz = blr%vz * 1.04
+         blr%vx = blr%vx * 1.02
+         blr%vy = blr%vy * 1.02
+         blr%vz = blr%vz * 1.02
      endif

      blr%radius = (va + vb) ** 0.33335