tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove useless call

Browse Source
This commit is contained in:
Tonton Th
2026-04-25 10:34:42 +02:00
parent 66ecce1c06
commit 7173a9dc9f
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
randomwalk.f90
View File

@@ -24,7 +24,6 @@ subroutine do_randomwalk(nbre, col)
real :: px, py, px2, py2 real :: px, py, px2, py2
px = 0.0 ; py = 0.0 px = 0.0 ; py = 0.0
call genp_move(px, py)
do idx=1, nbre do idx=1, nbre
px2 = px + rand(0) - 0.50 px2 = px + rand(0) - 0.50
py2 = py + rand(0) - 0.50 py2 = py + rand(0) - 0.50