brotching the code

2022-02-07 02:08:17 +01:00
parent 23616f9119
commit dac287beb2
3 changed files with 12 additions and 6 deletions
--- a/BloubWorld/movebloubs.f90
+++ b/BloubWorld/movebloubs.f90
@@ -44,7 +44,7 @@ program movebloubs
      exit
    endif

-    call move_bloub (bloub, 0.333)
+    call move_bloub (bloub, 1.10)

    bx = bx + bloub%px
    by = by + bloub%py
@@ -55,6 +55,10 @@ program movebloubs
      bloub%vy = -1.0 * bloub%vy
      bloub%py = 0.0
    endif
+    if (3.0 .lt. bloub%py) then
+      bloub%vy = -1.0 * bloub%vy
+      bloub%py = 3.0
+    endif

    write(outu) bloub     ! no error control ?