w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug in JT4 decodes with MinW=G.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5690 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-07-06 17:26:40 +00:00
parent ac822b3ed7
commit 4f64ed80a8
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/decode4.f90
View File

@ -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

4
lib/wsjt4.f90
View File

@ -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