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