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

fst4sim: Tweak output format for FST4W messages.

Browse Source
This commit is contained in:
Steven Franke 2023-02-17 10:02:52 -06:00
parent 280dd373d3
commit f98bbabd27
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fst4/fst4sim.f90
View File

@ -93,6 +93,10 @@ program fst4sim
if(i3.eq.1) then if(i3.eq.1) then
write(*,*) ' mycall hiscall hisgrid' write(*,*) ' mycall hiscall hisgrid'
write(*,'(28i1,1x,i1,1x,28i1,1x,i1,1x,i1,1x,15i1,1x,3i1)') msgbits(1:77) write(*,'(28i1,1x,i1,1x,28i1,1x,i1,1x,i1,1x,15i1,1x,3i1)') msgbits(1:77)
elseif(i3.eq.0 .and. n3.eq.6) then
write(*,*) '50-bit message'
write(*,'(a50)') '01234567890123456789012345678901234567890123456789'
write(*,'(50i1,1x,24i1)') msgbits(1:50),msgbits(51:74)
else else
write(*,'(a14)') 'Message bits: ' write(*,'(a14)') 'Message bits: '
write(*,'(77i1,1x,24i1)') msgbits write(*,'(77i1,1x,24i1)') msgbits