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

Add rudimentary sanity checks to the values parsed from FST4W_ALSO_FST4.

Browse Source
This commit is contained in:
Steven Franke 2021-01-02 10:25:29 -06:00 committed by Bill Somerville
parent 41f587c240
commit 46222c61ed
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/fst4_decode.f90
View File

@ -275,6 +275,7 @@ contains
if(iwspr.eq.1 .and. nlength.eq.8) then
read(s_nfa_nfb,"(i4.4,i4.4)") nfa_mode2,nfb_mode2
nmode=2
if(nfa_mode2.lt.100 .or. nfb_mode2.gt.4910 .or. nfb_mode2.le.nfa_mode2) nmode=1
endif
do imode=1,nmode