w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-03 07:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a quirk (aka "QU1RK") that can produce a callsign with an embedded blank.

Browse Source
This commit is contained in:
Joe Taylor 2018-07-27 10:28:28 -04:00
parent 789d2042bf
commit 91d0707eb6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/packjt77.f90
View File

@ -631,7 +631,9 @@ subroutine unpack28(n28_0,c13)
c4(i5+1:i5+1)//c4(i6+1:i6+1)//' ' c4(i5+1:i5+1)//c4(i6+1:i6+1)//' '
c13=adjustl(c13) c13=adjustl(c13)
900 return 900 i0=index(c13,' ')
if(i0.lt.len(trim(c13))) c13='QU1RK'
return
end subroutine unpack28 end subroutine unpack28
subroutine split77(msg,nwords,nw,w) subroutine split77(msg,nwords,nw,w)