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

2026-03-11 02:19:37 -04:00 · 2020-06-25 13:42:20 +00:00 · 2020-06-25 13:42:20 +00:00 · b1d35b7fa6
commit b1d35b7fa6
parent 81352f19cf
1 changed files with 2 additions and 1 deletions
--- a/ft8d.f90
+++ b/ft8d.f90
@ -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