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

A small tweak to fst4sim output formatting for 50-bit messages.

Browse Source
This commit is contained in:
Steven Franke 2023-02-17 14:18:06 -06:00
parent 0eaf79020f
commit b6bd9072d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/fst4/fst4sim.f90
View File

@ -94,9 +94,9 @@ program fst4sim
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 elseif(i3.eq.0 .and. n3.eq.6) then
write(*,*) '50-bit message' write(*,'(a15,37x,a5)') '50-bit message','CRC24'
write(*,'(a50)') '01234567890123456789012345678901234567890123456789'
write(*,'(50i1,1x,24i1)') msgbits(1:50),msgbits(51:74) write(*,'(50i1,1x,24i1)') msgbits(1:50),msgbits(51:74)
write(*,'(a50)') '01234567890123456789012345678901234567890123456789'
else else
write(*,'(a14)') 'Message bits: ' write(*,'(a14)') 'Message bits: '
write(*,'(77i1,1x,24i1)') msgbits write(*,'(77i1,1x,24i1)') msgbits