w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 12:52:28 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove several diagnostic writes.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-01 11:31:52 -05:00
parent df3169ba22
commit d1ac5f71e2
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/q65_sync.f90
View File

@ -144,9 +144,6 @@ subroutine q65_sync(iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
endif endif
enddo ! imsg enddo ! imsg
write(71,3071) imsg_best,ipk,jpk,xdt,f0,ccf_best
3071 format(3i5,3f10.2)
ia=i0+ipk-64 ia=i0+ipk-64
ib=ia+LL-1 ib=ia+LL-1
j=j0+jpk-7 j=j0+jpk-7
@ -160,13 +157,6 @@ subroutine q65_sync(iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(ia:ib,j) if(j.ge.1 .and. j.le.jz) s3(-64:LL-65,n)=s1(ia:ib,j)
enddo enddo
write(73,3001) codewords(1:10,3)
3001 format(3x,10i7)
do i=-5,68
write(73,3073) i,(s3(i,j),j=1,10)
3073 format(i3,10f7.1)
enddo
nsubmode=0 nsubmode=0
if(mode_q65.eq.2) nsubmode=1 if(mode_q65.eq.2) nsubmode=1
if(mode_q65.eq.4) nsubmode=2 if(mode_q65.eq.4) nsubmode=2
@ -178,8 +168,6 @@ subroutine q65_sync(iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
b90=1.72**ibw b90=1.72**ibw
call q65_intrinsics_ff(s3,nsubmode,b90/baud,nFadingModel,s3prob) call q65_intrinsics_ff(s3,nsubmode,b90/baud,nFadingModel,s3prob)
call q65_dec_fullaplist(s3,s3prob,codewords,ncw,esnodb,dat4,plog,irc) call q65_dec_fullaplist(s3,s3prob,codewords,ncw,esnodb,dat4,plog,irc)
write(72,3072) ibw,dat4,plog,irc
3072 format(i2,2x,13i3,f8.1,i5)
if(irc.ge.0) then if(irc.ge.0) then
snr2=esnodb - db(2500.0/baud) snr2=esnodb - db(2500.0/baud)
id1=1 id1=1