Force message to upper case.

2020-05-03 11:10:21 -04:00 · 2020-05-03 11:10:21 -04:00 · 4429230752
parent 9f974b48e0
commit 4429230752
1 changed files with 1 additions and 0 deletions
--- 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