From e1c74fd828aac69a6893bdd82b8c32dc2b5d4df6 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 20 Sep 2018 09:49:42 -0500
Subject: [PATCH] Fix message lengths in genmsk40. Also some tweaks to
 msk144sim.f90.

---
 lib/genmsk40.f90  | 2 +-
 lib/msk144sim.f90 | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/genmsk40.f90 b/lib/genmsk40.f90
index 3310b1066..80411819f 100644
--- a/lib/genmsk40.f90
+++ b/lib/genmsk40.f90
@@ -1,7 +1,7 @@
 subroutine genmsk40(msg,msgsent,ichk,itone,itype)
 
   use hashing
-  character*22 msg,msgsent,hashmsg
+  character*37 msg,msgsent,hashmsg
   character*4 crpt,rpt(0:15)
   logical first
   integer*4 itone(144)
diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90
index 32da98f72..0bc64764f 100644
--- a/lib/msk144sim.f90
+++ b/lib/msk144sim.f90
@@ -38,8 +38,13 @@ program msk144sim
   ichk=0
   itype=1
   call genmsk_128_90(msg,ichk,msgsent,itone,itype) 
+  write(*,*) 'Requested message: ',msg
+  write(*,*) 'Message sent     : ',msgsent
+  write(*,*) 'Tones: '
+  write(*,'(72i1)') itone(1:72)
+  write(*,'(72i1)') itone(72:144)
+  write(*,*) itype
   twopi=8.d0*atan(1.d0)
-
   nsym=144
   nsps=6*nslow
   if( itone(41) .lt. 0 ) nsym=40
@@ -49,7 +54,7 @@ program msk144sim
   phi=0.0
   k=0
   nreps=NMAX/(nsym*nsps)
-  print*,nsym,nslow,nsps,baud,freq
+
   do jrep=1,nreps
     do i=1,nsym
       if( itone(i) .eq. 0 ) then