add ndepth and npass to ft8d.f90

2026-06-11 18:38:38 -04:00 · 2018-03-26 08:37:27 +02:00
parent 6dd9970544
commit 17fb21b427
1 changed files with 3 additions and 1 deletions
@@ -48,7 +48,9 @@ program ft8d
    ndecodes=0
    allmessages='                      '
    allsnrs=0
-    do ipass=1,3
+    ndepth=1
+    npass=1
+    do ipass=1,npass
      newdat=.true.
      syncmin=1.5
      if(ipass.eq.1) then