remove useless call

2026-04-25 10:34:42 +02:00
parent 66ecce1c06
commit 7173a9dc9f
1 changed files with 0 additions and 1 deletions
--- a/randomwalk.f90
+++ b/randomwalk.f90
@@ -24,7 +24,6 @@ subroutine do_randomwalk(nbre, col)
  real                        :: px, py, px2, py2

  px = 0.0        ;       py = 0.0
-  call genp_move(px, py)
  do idx=1, nbre
    px2 = px + rand(0) - 0.50
    py2 = py + rand(0) - 0.50