2018-07-11 10:13:42 -04:00
|
|
|
function stdmsg(msg0)
|
2013-03-11 15:43:06 -04:00
|
|
|
|
2018-07-11 10:13:42 -04:00
|
|
|
! Returns .true. if msg0 a standard "JT-style" message
|
|
|
|
|
|
|
|
|
|
! i3.n3
|
|
|
|
|
! 0.0 Free text
|
|
|
|
|
! 0.1 DXpeditiion mode
|
|
|
|
|
! 0.2 EU VHF Contest
|
|
|
|
|
! 0.3 ARRL Field Day <=16 transmitters
|
|
|
|
|
! 0.4 ARRL Field Day >16 transmitters
|
|
|
|
|
! 0.5 telemetry
|
|
|
|
|
! 0.6
|
|
|
|
|
! 0.7
|
|
|
|
|
! 1 Standard 77-bit structured message (optional /R)
|
|
|
|
|
! 2 EU VHF Contest (optional /P)
|
|
|
|
|
! 3 ARRL RTTY Contest
|
|
|
|
|
! 4 Nonstandard calls
|
2017-09-29 12:58:05 -04:00
|
|
|
|
2017-09-01 16:10:35 -04:00
|
|
|
use iso_c_binding, only: c_bool
|
2015-04-22 13:48:03 -04:00
|
|
|
use packjt
|
2018-09-20 14:04:48 -04:00
|
|
|
use packjt77
|
|
|
|
|
|
|
|
|
|
character*37 msg0,msg1
|
|
|
|
|
character*77 c77
|
2017-09-01 16:10:35 -04:00
|
|
|
logical(c_bool) :: stdmsg
|
2013-03-11 15:43:06 -04:00
|
|
|
|
2017-09-29 12:53:57 -04:00
|
|
|
msg1=msg0
|
2018-09-20 14:04:48 -04:00
|
|
|
i3=-1
|
|
|
|
|
n3=-1
|
|
|
|
|
call pack77(msg1,i3,n3,c77)
|
|
|
|
|
stdmsg=(i3.gt.0 .or. n3.gt.0)
|
2013-03-11 15:43:06 -04:00
|
|
|
|
2018-09-20 14:04:48 -04:00
|
|
|
!###
|
|
|
|
|
! rewind 82
|
|
|
|
|
! do i=1,nzhash
|
2018-09-21 11:13:01 -04:00
|
|
|
! write(82,3082) i,nzhash,callsign(i),ihash10(i),ihash12(i),ihash22(i)
|
|
|
|
|
!3082 format(2i5,2x,a13,3i10)
|
2018-09-20 14:04:48 -04:00
|
|
|
! enddo
|
|
|
|
|
! flush(82)
|
|
|
|
|
!###
|
|
|
|
|
|
2013-03-11 15:43:06 -04:00
|
|
|
return
|
|
|
|
|
end function stdmsg
|
