WSJT-X/lib/77bit/pack77_01.f90

39 lines
1.3 KiB
Fortran
Raw Normal View History

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)
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
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
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
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
write(c77,1010) n28a,n28b,n10,n5,n3,i3
1010 format(2b28.28,b10.10,b5.5,2b3.3)
return
end subroutine pack77_01