From 05b7c4680bdc0197a960c5a99fc9afa527ac344d Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 31 Jul 2014 17:22:51 +0000 Subject: [PATCH] Tweak the JT65 decoder so that it accepts DT down to -3.3 s. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4225 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/jt65a.f90 | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lib/jt65a.f90 b/lib/jt65a.f90 index 47dad71c2..347a03450 100644 --- a/lib/jt65a.f90 +++ b/lib/jt65a.f90 @@ -1,10 +1,11 @@ -subroutine jt65a(dd,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded) +subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded) ! Process dd() data to find and decode JT65 signals. parameter (NSZ=3413) parameter (NZMAX=60*12000) parameter (NFFT=8192) + real dd0(NZMAX) real dd(NZMAX) real*4 ss(322,NSZ) real*4 savg(NSZ) @@ -13,6 +14,12 @@ subroutine jt65a(dd,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded) character decoded*22 save + dd=0. + tskip=2.0 + nskip=12000*tskip + dd(1+nskip:npts+nskip)=dd0(1:npts) + npts=npts+nskip + if(newdat.ne.0) then call timer('symsp65 ',0) call symspec65(dd,npts,ss,nhsym,savg) !Get normalized symbol spectra @@ -68,6 +75,7 @@ subroutine jt65a(dd,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded) nsnr=nint(s2db) if(nsnr.lt.-30) nsnr=-30 if(nsnr.gt.-1) nsnr=-1 + dt=dt-tskip write(*,1010) nutc,nsnr,dt,nfreq,decoded 1010 format(i4.4,i4,f5.1,i5,1x,'#',1x,a22) write(13,1012) nutc,nint(sync1),nsnr,dt,float(nfreq),ndrift, &