From b1d35b7fa6c1b152c5094a3e178a7d6d54ecd279 Mon Sep 17 00:00:00 2001 From: Pavel Demin Date: Thu, 25 Jun 2020 13:42:20 +0000 Subject: [PATCH] set npass to 5 if ndepth is 3 in ft8d.f90 --- ft8d.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ft8d.f90 b/ft8d.f90 index a69fb97..c96162a 100644 --- 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