From 59278b9b6b3b22b92e933c4e6ca2959ce6624bb5 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Wed, 10 Oct 2018 16:06:53 -0500 Subject: [PATCH] Tweak ndeep determination. --- lib/ft8/ft8b_2.f90 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lib/ft8/ft8b_2.f90 b/lib/ft8/ft8b_2.f90 index c40ec7e01..9cb4560a9 100644 --- a/lib/ft8/ft8b_2.f90 +++ b/lib/ft8/ft8b_2.f90 @@ -398,11 +398,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, & if(ndepth.eq.3 .and. nharderrors.lt.0) then ndeep=3 if(abs(nfqso-f1).le.napwid .or. abs(nftx-f1).le.napwid) then - if((ipass.eq.3 .or. ipass.eq.4) .and. .not.nagain) then - ndeep=3 - else - ndeep=4 - endif + ndeep=4 endif if(nagain) ndeep=5 call timer('osd174_91 ',0)