From 77c532b1a326584920032aeb96453ee46e1ccf15 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 1 Nov 2021 14:57:52 -0400 Subject: [PATCH] Always use Deep for manual Q65 decodes (lagain==true). --- lib/q65_decode.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index ad57ccff5..1368f8ab0 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -76,9 +76,7 @@ contains logical single_decode,lagain complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c0(:) !Analytic signal, 6000 Sa/s - -!w3sz added - integer stageno + integer stageno !Added by W3SZ stageno=0 ! Start by setting some parameters and allocating storage for large arrays @@ -99,7 +97,7 @@ contains nfft1=ntrperiod*12000 nfft2=ntrperiod*6000 npasses=1 - + if(lagain) ndepth=ior(ndepth,3) !Use 'Deep' for manual Q65 decodes dxcall13=hiscall ! initialize for use in packjt77 mycall13=mycall