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

ft8sim2: make it easier to identify callsign and grid bits in simulated messages.

Browse Source
This commit is contained in:
Steve Franke 2018-07-28 09:26:54 -05:00
parent bee1ecd109
commit 750bf569f3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/ft8/ft8sim2.f90
View File

@ -72,9 +72,14 @@ program ft8sim2
1000 format('f0:',f9.3,' DT:',f6.2,' TxT:',f6.1,' SNR:',f6.1, & 1000 format('f0:',f9.3,' DT:',f6.2,' TxT:',f6.1,' SNR:',f6.1, &
' BW:',f4.1) ' BW:',f4.1)
write(*,*) write(*,*)
write(*,'(a14)') 'Message bits: ' if(i3.eq.1) then
write(*,'(77i1)') msgbits write(*,*) ' mycall hiscall hisgrid'
write(*,*) write(*,'(28i1,1x,i1,1x,28i1,1x,i1,1x,i1,1x,15i1,1x,3i1)') msgbits(1:77)
else
write(*,'(a14)') 'Message bits: '
write(*,'(77i1)') msgbits
endif
write(*,*)
write(*,'(a17)') 'Channel symbols: ' write(*,'(a17)') 'Channel symbols: '
write(*,'(79i1)') itone write(*,'(79i1)') itone
write(*,*) write(*,*)