From d3e261e03c462be5981d1128796d0f3d03c8e574 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Tue, 7 Nov 2017 21:57:27 +0000 Subject: [PATCH] Make JT65 averaging work again. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8223 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/jt65_decode.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90 index 28e476ff9..0eb15277a 100644 --- a/lib/jt65_decode.f90 +++ b/lib/jt65_decode.f90 @@ -266,7 +266,8 @@ contains nsave=mod(nsave-1,64)+1 call avg65(nutc,nsave,sync1,dtx,nflip,nfreq,mode65,ntol, & ndepth,nagain,ntrials,naggressive,clearave,neme,mycall, & - hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum,ndeepave) + hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum,ndeepave, & + nQSOProgress,ljt65apon) nsmo=param(9) nqave=qave @@ -337,7 +338,7 @@ contains subroutine avg65(nutc,nsave,snrsync,dtxx,nflip,nfreq,mode65,ntol,ndepth, & nagain, ntrials,naggressive,clearave,neme,mycall,hiscall,hisgrid,nftt, & - avemsg,qave,deepave,nsum,ndeepave) + avemsg,qave,deepave,nsum,ndeepave,nQSOProgress,ljt65apon) ! Decodes averaged JT65 data @@ -360,7 +361,7 @@ contains real s3c(64,63) real dtsave(MAXAVE) real syncsave(MAXAVE) - logical first,clearave + logical first,clearave,ljt65apon data first/.true./ save @@ -477,7 +478,8 @@ contains nadd=nsum*ismo call extract(s3c,nadd,mode65,ntrials,naggressive,ndepth,nflip,mycall, & - hiscall,hisgrid,nexp_decode,ncount,nhist,avemsg,ltext,nftt,qual) + hiscall,hisgrid,nQSOProgress,ljt65apon,nexp_decode,ncount,nhist, & + avemsg,ltext,nftt,qual) if(nftt.eq.1) then nsmo=ismo param(9)=nsmo