From f98bbabd27829d27579bd1da8d346ee09ecf3ea8 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Fri, 17 Feb 2023 10:02:52 -0600
Subject: [PATCH] fst4sim: Tweak output format for FST4W messages.

---
 lib/fst4/fst4sim.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/fst4/fst4sim.f90 b/lib/fst4/fst4sim.f90
index 28caf2fe0..453c1fe97 100644
--- a/lib/fst4/fst4sim.f90
+++ b/lib/fst4/fst4sim.f90
@@ -93,6 +93,10 @@ program fst4sim
    if(i3.eq.1) then
       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(*,'(50i1,1x,24i1)') msgbits(1:50),msgbits(51:74)
    else
       write(*,'(a14)') 'Message bits: '
       write(*,'(77i1,1x,24i1)') msgbits