w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Catch invalid values of igrid6 and set unpk77_success=.false.

Browse Source
This commit is contained in:
Joe Taylor 2020-05-19 10:22:42 -04:00
parent e2a00439e6
commit 1f9a9654a2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/77bit/packjt77.f90
View File

@ -533,6 +533,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
! EU VHF contest ! EU VHF contest
read(c77,1060) n12,n22,ir,irpt,iserial,igrid6 read(c77,1060) n12,n22,ir,irpt,iserial,igrid6
1060 format(b12,b22,b1,b3,b11,b25) 1060 format(b12,b22,b1,b3,b11,b25)
if(igrid6.lt.0 .or. igrid6.gt.18662399) then
unpk77_success=.false.
return
endif
call hash12(n12,call_1) call hash12(n12,call_1)
if(n12.eq.hashmy12) call_1='<'//trim(mycall13)//'>' if(n12.eq.hashmy12) call_1='<'//trim(mycall13)//'>'
call hash22(n22,call_2) call hash22(n22,call_2)