mirror of
https://github.com/JS8Call-improved/JS8Call-improved
synced 2026-08-13 17:47:36 -04:00
deed21266b
Backport of WSJTX elimination of VHF contest mode, which greatly simplifies decoding and generation. Deal compiler warning spam regarding unused dummy parameters in the JS8 decoder, along with some uninitialized variable warnings in release builds.
19 lines
423 B
Fortran
19 lines
423 B
Fortran
function stdmsg(msg0)
|
|
|
|
! Is msg0 a standard "JT-style" message?
|
|
|
|
use iso_c_binding, only: c_bool
|
|
use packjt
|
|
character*22 msg0,msg1,msg
|
|
integer dat(12)
|
|
logical(c_bool) :: stdmsg
|
|
|
|
msg1=msg0
|
|
i0=index(msg1,' OOO ')
|
|
if(i0.gt.10) msg1=msg0(1:i0)
|
|
call packmsg(msg0,dat,itype)
|
|
call unpackmsg(dat,msg)
|
|
stdmsg=(msg.eq.msg1) .and. (itype.ge.0) .and. itype.ne.6
|
|
|
|
return
|
|
end function stdmsg
|