From 4429230752401bf2f3256d8912fe88be1a50fed7 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 3 May 2020 11:10:21 -0400
Subject: [PATCH] Force message to upper case.

---
 lib/msk144sim.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/msk144sim.f90 b/lib/msk144sim.f90
index 3472d8827..a19d7443b 100644
--- a/lib/msk144sim.f90
+++ b/lib/msk144sim.f90
@@ -34,6 +34,7 @@ program msk144sim
   i1=len(trim(msg))-5
   ichk=0
   itype=1
+  call fmtmsg(msg,iz)
   call genmsk_128_90(msg,ichk,msgsent,itone,itype) 
   write(*,*) 'Requested message: ',msg
   write(*,*) 'Message sent     : ',msgsent