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

Minor tweaks to test_qra65.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-09 10:44:25 -04:00
parent c5502cda05
commit 8612398b02
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/test_qra65.f90
View File

@ -78,7 +78,7 @@ program test_qra65
write(*,1000) (j,j=0,11) write(*,1000) (j,j=0,11)
write(12,1000) (j,j=0,11) write(12,1000) (j,j=0,11)
1000 format(/'SNR d Dop Sync Dec1 DecN Bad',i6,11i4,' tdec dtavg dtrms'/97('-')) 1000 format(/'SNR d Dop Sync Dec1 DecN Bad',i6,11i4,' tdec'/85('-'))
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))
@ -140,6 +140,7 @@ program test_qra65
endif endif
flush(6) flush(6)
flush(12) flush(12)
if(ndecodes.eq.0) exit !Bail out if no decodes at this SNR
ndecodes0=ndecodes ndecodes0=ndecodes
enddo ! nsnr enddo ! nsnr