set npass to 5 if ndepth is 3 in ft8d.f90

2026-06-05 15:44:41 -04:00 · 2020-06-25 13:42:20 +00:00
parent 81352f19cf
commit b1d35b7fa6
1 changed files with 2 additions and 1 deletions
@@ -46,7 +46,8 @@ program ft8d
    lft8apon=.false.
    ndepth=1
    if(ndepth.eq.1) npass=1
-    if(ndepth.ge.2) npass=3
+    if(ndepth.eq.2) npass=3
+    if(ndepth.ge.3) npass=5
    do ipass=1,npass
      newdat=.true.
      syncmin=1.5