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

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-05 11:09:15 -05:00
parent 077811ae6d
commit 9f8336de4e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/test_q65.f90
View File

@ -95,7 +95,7 @@ program test_q65
dterr=tsym/4.0 dterr=tsym/4.0
nferr=max(1,nint(0.5*baud),nint(fdop/3.0)) nferr=max(1,nint(0.5*baud),nint(fdop/3.0))
ndec10=nfiles ndec1z=nfiles
do nsnr=ia,ib,-1 do nsnr=ia,ib,-1
snr1=nsnr snr1=nsnr
@ -143,8 +143,8 @@ program test_q65
write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, & write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
ndec1,nfalse,naptype,tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles
1100 format(f5.1,i4,1x,a1,i3,f5.1,3i5,i4,i6,5i5,f6.2) 1100 format(f5.1,i4,1x,a1,i3,f5.1,3i5,i4,i6,5i5,f6.2)
if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then if(ndec1.lt.nfiles/2 .and. ndec1z.ge.nfiles/2) then
snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1) snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec1z-ndec1)
open(13,file='snr_thresh.out',status='unknown',position='append') open(13,file='snr_thresh.out',status='unknown',position='append')
write(13,1200) ntrperiod,csubmode,ndepth,nQSOprogress,nfiles, & write(13,1200) ntrperiod,csubmode,ndepth,nQSOprogress,nfiles, &
fdop,snr_thresh,trim(msg) fdop,snr_thresh,trim(msg)
@ -154,7 +154,7 @@ program test_q65
flush(6) flush(6)
flush(12) flush(12)
if(ndec1.eq.0 .and. ndecn.eq.0) exit !Bail out if no decodes at this SNR if(ndec1.eq.0 .and. ndecn.eq.0) exit !Bail out if no decodes at this SNR
ndec10=ndec1 ndec1z=ndec1
enddo ! nsnr enddo ! nsnr
999 end program test_q65 999 end program test_q65