From 1942652c2a8a9cdaf75caef8568cf443740b79ca Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 6 Jul 2015 17:26:40 +0000 Subject: [PATCH] Fix bug in JT4 decodes with MinW=G. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5690 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decode4.f90 | 2 +- lib/wsjt4.f90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/decode4.f90 b/lib/decode4.f90 index 0ad4e7700..33913df06 100644 --- a/lib/decode4.f90 +++ b/lib/decode4.f90 @@ -38,7 +38,7 @@ subroutine decode4(dat,npts,dtx,nfreq,flip,mode4,ndepth,neme,minw, & enddo do ich=ich1,ich2 - nchips=nch(ich) + nchips=min(nch(ich),70) nspchip=1260/nchips k=istart phi=0.d0 diff --git a/lib/wsjt4.f90 b/lib/wsjt4.f90 index 93903fcae..96afa5160 100644 --- a/lib/wsjt4.f90 +++ b/lib/wsjt4.f90 @@ -55,7 +55,7 @@ subroutine wsjt4(dat,npts,nutc,NClearAve,minsync,ntol,emedelay,dttol, & call timer('sync4 ',1) call timer('zplt ',0) - do ich=4,6 + do ich=4,7 z(1:458,1:65)=zz(274:731,1:65,ich) call zplt(z,ich-4,syncz,dtxz,nfreqz,flipz,sync2z,0,emedelay,dttol, & nfqso,ntol) @@ -176,5 +176,5 @@ subroutine wsjt4(dat,npts,nutc,NClearAve,minsync,ntol,emedelay,dttol, & deepave,cqual,char(ichar('A')+ich-1),ndeepave endif -990 return +990 return end subroutine wsjt4