w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Force message to upper case.

Browse Source
This commit is contained in:
Joe Taylor 2020-05-03 11:10:21 -04:00
parent 9f974b48e0
commit 4429230752
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/msk144sim.f90
View File

@ -34,6 +34,7 @@ program msk144sim
i1=len(trim(msg))-5 i1=len(trim(msg))-5
ichk=0 ichk=0
itype=1 itype=1
call fmtmsg(msg,iz)
call genmsk_128_90(msg,ichk,msgsent,itone,itype) call genmsk_128_90(msg,ichk,msgsent,itone,itype)
write(*,*) 'Requested message: ',msg write(*,*) 'Requested message: ',msg
write(*,*) 'Message sent : ',msgsent write(*,*) 'Message sent : ',msgsent