2018-06-26 08:33:13 -04:00
|
|
|
subroutine pack77_01(nwords,w,i3,n3,c77)
|
|
|
|
|
|
|
|
|
|
! Pack a Type 0.1 message: DXpedition mode
|
|
|
|
|
! Example message: "K1ABC RR73; W9XYZ <KH1/KH7Z> -11" 28 28 10 5
|
|
|
|
|
|
2018-06-26 15:20:39 -04:00
|
|
|
character*13 w(19),chash(20)
|
2018-06-26 08:33:13 -04:00
|
|
|
character*77 c77
|
|
|
|
|
character*6 bcall_1,bcall_2
|
|
|
|
|
logical ok1,ok2
|
2018-06-26 15:20:39 -04:00
|
|
|
common/hashcom/ihash10(20),chash
|
2018-06-26 08:33:13 -04:00
|
|
|
|
|
|
|
|
if(nwords.ne.5) return !Must have 5 words
|
|
|
|
|
if(trim(w(2)).ne.'RR73;') return !2nd word must be "RR73;"
|
|
|
|
|
if(w(4)(1:1).ne.'<') return !4th word must have <...>
|
|
|
|
|
if(index(w(4),'>').lt.1) return
|
|
|
|
|
n=-99
|
|
|
|
|
read(w(5),*,err=1) n
|
2018-06-26 15:20:39 -04:00
|
|
|
1 if(n.eq.-99) return !5th word must be a valid report
|
|
|
|
|
n5=(n+30)/2
|
|
|
|
|
if(n5.lt.0) n5=0
|
|
|
|
|
if(n5.gt.31) n5=31
|
2018-06-26 08:33:13 -04:00
|
|
|
call chkcall(w(1),bcall_1,ok1)
|
|
|
|
|
if(.not.ok1) return !1st word must be a valid basecall
|
|
|
|
|
call chkcall(w(3),bcall_2,ok2)
|
|
|
|
|
if(.not.ok2) return !3rd word must be a valid basecall
|
|
|
|
|
|
2018-06-26 15:20:39 -04:00
|
|
|
! Type 0.1: K1ABC RR73; W9XYZ <KH1/KH7Z> -11 28 28 10 5 71 DXpedition Mode
|
2018-06-26 08:33:13 -04:00
|
|
|
i3=0
|
|
|
|
|
n3=1
|
|
|
|
|
call pack28(w(1),n28a)
|
|
|
|
|
call pack28(w(3),n28b)
|
2018-06-26 15:20:39 -04:00
|
|
|
n10=ihashcall(w(4),10) !Get the 10-bit hash code
|
|
|
|
|
call hash10(n10,w(4),0) !Save this hash and its callsign
|
2018-06-26 08:33:13 -04:00
|
|
|
write(c77,1010) n28a,n28b,n10,n5,n3,i3
|
|
|
|
|
1010 format(2b28.28,b10.10,b5.5,2b3.3)
|
|
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine pack77_01
|
