mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 01:56:10 -05:00
37 lines
1.1 KiB
Fortran
37 lines
1.1 KiB
Fortran
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
|
|
|
|
character*13 w(19)
|
|
character*77 c77
|
|
character*6 bcall_1,bcall_2
|
|
logical ok1,ok2
|
|
|
|
if(nwords.ne.5) go to 900 !Must have 5 words
|
|
if(trim(w(2)).ne.'RR73;') go to 900 !2nd word must be "RR73;"
|
|
if(w(4)(1:1).ne.'<') go to 900 !4th word must have <...>
|
|
if(index(w(4),'>').lt.1) go to 900
|
|
n=-99
|
|
read(w(5),*,err=1) n
|
|
1 if(n.eq.-99) go to 900 !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) go to 900 !1st word must be a valid basecall
|
|
call chkcall(w(3),bcall_2,ok2)
|
|
if(.not.ok2) go to 900 !3rd word must be a valid basecall
|
|
|
|
! 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)
|
|
call save_hash_call(w(4),n10,n12,n22)
|
|
write(c77,1010) n28a,n28b,n10,n5,n3,i3
|
|
1010 format(2b28.28,b10.10,b5.5,2b3.3)
|
|
|
|
900 return
|
|
end subroutine pack77_01
|