From dea35fbf560dc9b29eba87e10178c28ac322e39b Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Sat, 20 Oct 2018 10:16:17 -0500
Subject: [PATCH] Tweak msk144sim output.

---
 lib/msk144sim.f90 | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90
index fe2959cea..75c6a1e64 100644
--- a/lib/msk144sim.f90
+++ b/lib/msk144sim.f90
@@ -41,8 +41,12 @@ program msk144sim
   write(*,*) 'Requested message: ',msg
   write(*,*) 'Message sent     : ',msgsent
   write(*,*) 'Tones: '
-  write(*,'(1x,72i1)') itone(1:72)
-  write(*,'(1x,72i1)') itone(73:144)
+  if(itone(41).ge.0) then
+     write(*,'(1x,72i1)') itone(1:72)
+     write(*,'(1x,72i1)') itone(73:144)
+  else
+     write(*,'(1x,40i1)') itone(1:40)
+  endif
 
   twopi=8.d0*atan(1.d0)
   nsym=144