From b6bd9072d5d5dac3b8bb0dd5e5b2d19dc921acc7 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Fri, 17 Feb 2023 14:18:06 -0600 Subject: [PATCH] A small tweak to fst4sim output formatting for 50-bit messages. --- lib/fst4/fst4sim.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/fst4/fst4sim.f90 b/lib/fst4/fst4sim.f90 index 453c1fe97..936c4b6f4 100644 --- a/lib/fst4/fst4sim.f90 +++ b/lib/fst4/fst4sim.f90 @@ -94,9 +94,9 @@ program fst4sim write(*,*) ' mycall hiscall hisgrid' 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(*,'(a15,37x,a5)') '50-bit message','CRC24' write(*,'(50i1,1x,24i1)') msgbits(1:50),msgbits(51:74) + write(*,'(a50)') '01234567890123456789012345678901234567890123456789' else write(*,'(a14)') 'Message bits: ' write(*,'(77i1,1x,24i1)') msgbits