w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-07 16:34:55 -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/stdmsg.f90
+3 -4
View File
@@ -1,4 +1,4 @@
function stdmsg(msg0,bcontest,mygrid)
function stdmsg(msg0,mygrid)
! Is msg0 a standard "JT-style" message?
@@ -7,14 +7,13 @@ function stdmsg(msg0,bcontest,mygrid)
character*22 msg0,msg1,msg
character*6 mygrid
integer dat(12)
logical(c_bool), value :: bcontest
logical(c_bool) :: stdmsg
msg1=msg0
i0=index(msg1,' OOO ')
if(i0.gt.10) msg1=msg0(1:i0)
call packmsg(msg0,dat,itype,logical(bcontest))
call unpackmsg(dat,msg,logical(bcontest),mygrid)
call packmsg(msg0,dat,itype)
call unpackmsg(dat,msg,mygrid)
stdmsg=(msg.eq.msg1) .and. (itype.ge.0) .and. itype.ne.6
return