mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 00:51:56 -05:00
dd1362b69a
Generic message packing and unpacking routines now understand antipode grid contest messages. These messages are now recognized as standard messages in message response processing and dealt with appropriately when contest mode is selected and applicable (currently FT8 and MSK144 only). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8062 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
17 lines
420 B
Fortran
17 lines
420 B
Fortran
function stdmsg(msg0,bcontest,mygrid)
|
|
|
|
use iso_c_binding, only: c_bool
|
|
use packjt
|
|
character*22 msg0,msg
|
|
character*6 mygrid
|
|
integer dat(12)
|
|
logical(c_bool), value :: bcontest
|
|
logical(c_bool) :: stdmsg
|
|
|
|
call packmsg(msg0,dat,itype,logical(bcontest))
|
|
call unpackmsg(dat,msg,logical(bcontest),mygrid)
|
|
stdmsg=(msg.eq.msg0) .and. (itype.ge.0) .and. itype.ne.6
|
|
|
|
return
|
|
end function stdmsg
|