w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-08-14 23:43:44 -04:00
Code Issues Packages Projects Releases Wiki Activity

Old-style "NA VHF Contest" mode removed from all Fortran routines.

Browse Source
This commit is contained in:
Joe Taylor
2018-07-10 15:09:42 -04:00
parent 189c7bae67
commit d95d2df5b6
30 changed files with 64 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/qra64code.f90
+3 -3
View File
@@ -30,11 +30,11 @@ program QRA64code
do imsg=1,nmsg
if(nmsg.gt.1) msg=testmsg(imsg)
call fmtmsg(msg,iz) !To upper, collapse mult blanks
call fmtmsg(msg,iz) !To upper, collapse mult blanks
msg0=msg !Input message
call chkmsg(msg,cok,nspecial,flip) !See if it includes "OOO" report
msg1=msg !Message without "OOO"
call packmsg(msg1,dgen,itype,.false.) !Pack message into 12 six-bit bytes
call packmsg(msg1,dgen,itype) !Pack message into 12 six-bit bytes
msgtype=""
if(itype.eq.1) msgtype="Std Msg"
if(itype.eq.2) msgtype="Type 1 pfx"
@@ -45,7 +45,7 @@ program QRA64code
call qra64_enc(dgen,sent) !Encode using QRA64
call unpackmsg(dgen,decoded,.false.,' ') !Unpack the user message
call unpackmsg(dgen,decoded,' ') !Unpack the user message
call fmtmsg(decoded,iz)
ii=imsg
write(*,1020) ii,msg0,decoded,itype,msgtype