w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Protect against a blank message.

Browse Source
This commit is contained in:
Joe Taylor 2022-01-09 09:46:33 -05:00
parent d774733636
commit 5797e51fe3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/ft8/ft8_a7.f90
View File

@ -44,6 +44,7 @@ subroutine ft8_a7_save(nutc,dt,f,msg)
dt0(i,j,1)=dt !Save dt in table dt0(i,j,1)=dt !Save dt in table
f0(i,j,1)=f !Save f in table f0(i,j,1)=f !Save f in table
call split77(msg,nwords,nw,w) !Parse msg into words call split77(msg,nwords,nw,w) !Parse msg into words
if(nwords.lt.1) go to 999
msg0(i,j,1)=trim(w(1))//' '//trim(w(2)) !Save "call_1 call_2" msg0(i,j,1)=trim(w(1))//' '//trim(w(2)) !Save "call_1 call_2"
if(w(1)(1:3).eq.'CQ ' .and. nw(2).le.2) then if(w(1)(1:3).eq.'CQ ' .and. nw(2).le.2) then
msg0(i,j,1)='CQ '//trim(w(2))//' '//trim(w(3)) !Save "CQ DX Call_2" msg0(i,j,1)='CQ '//trim(w(2))//' '//trim(w(3)) !Save "CQ DX Call_2"
@ -66,7 +67,7 @@ subroutine ft8_a7_save(nutc,dt,f,msg)
endif endif
enddo enddo
return 999 return
end subroutine ft8_a7_save end subroutine ft8_a7_save
subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,nharderrors,dmin, & subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,nharderrors,dmin, &