1function stdmsg(msg0)
2
3  ! Returns .true. if msg0 a standard "JT-style" message
4
5  ! i3.n3
6  !  0.0   Free text
7  !  0.1   DXpeditiion mode
8  !  0.2   EU VHF Contest
9  !  0.3   ARRL Field Day <=16 transmitters
10  !  0.4   ARRL Field Day >16 transmitters
11  !  0.5   telemetry
12  !  0.6
13  !  0.7
14  !  1     Standard 77-bit structured message (optional /R)
15  !  2     EU VHF Contest (optional /P)
16  !  3     ARRL RTTY Contest
17  !  4     Nonstandard calls
18
19  use iso_c_binding, only: c_bool
20  use packjt
21  use packjt77
22
23  character*37 msg0,msg1
24  character*77 c77
25  logical(c_bool) :: stdmsg
26
27  msg1=msg0
28  i3=-1
29  n3=-1
30  call pack77(msg1,i3,n3,c77)
31  stdmsg=(i3.gt.0 .or. n3.gt.0)
32
33!###
34!  rewind 82
35!  do i=1,nzhash
36!     write(82,3082) i,nzhash,callsign(i),ihash10(i),ihash12(i),ihash22(i)
37!3082 format(2i5,2x,a13,3i10)
38!  enddo
39!  flush(82)
40!###
41
42  return
43end function stdmsg
44