From 385f0e7b62943c56469a7a3bfbf83157c0d06353 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 22 Oct 2021 10:22:23 -0400 Subject: [PATCH] Activate the W3SZ code for 'q5' decodes only when max_drift = 50. --- lib/q65_decode.f90 | 5 ++--- lib/qra/q65/q65.f90 | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index 087bc0ce8..c0793d06f 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -241,9 +241,8 @@ contains nused=navg(iseq) endif -100 stageno = 5 - - if(idec.lt.0) then +100 if(idec.lt.0 .and. max_drift.eq.50) then + stageno = 5 call timer('q65_dec0',0) ! Call top-level routine in q65 module: establish sync and try for a ! q3 or q0 decode. diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 1bd51f779..349e38c91 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -268,7 +268,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & idec=5 endif - endif ! if(idec.lt.0 .and. maxdrift.eq.50 .and. stageno.eq.5) + endif ! if(idec.lt.0 .and. max_drift.eq.50 .and. stageno.eq.5) return end subroutine q65_dec0