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