mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-08 10:06:11 -05:00
35 lines
1013 B
Fortran
35 lines
1013 B
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) 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
|
|
1 if(n.lt.-30 .or. n.gt.30) return !5th word must be a valid report
|
|
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
|
|
|
|
! It's a Type 0.1 message
|
|
i3=0
|
|
n3=1
|
|
call pack28(w(1),n28a)
|
|
call pack28(w(3),n28b)
|
|
n10=0
|
|
n5=17
|
|
write(c77,1010) n28a,n28b,n10,n5,n3,i3
|
|
1010 format(2b28.28,b10.10,b5.5,2b3.3)
|
|
|
|
return
|
|
end subroutine pack77_01
|