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

Oops! I committed the wrong version.

Browse Source
This commit is contained in:
Joe Taylor 2022-02-17 10:22:18 -05:00
parent 5e1795ff5c
commit 8e6f027c5e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/ft8_a7.f90
View File

@ -370,7 +370,7 @@ subroutine ft8_a7d(dd0,newdat,call_1,call_2,grid4,xdt,f1,nharderrors,dmin, &
if(dmin.gt.100.0 .or. dmin2/dmin.lt.1.3) nharderrors=-1 if(dmin.gt.100.0 .or. dmin2/dmin.lt.1.3) nharderrors=-1
msg37=msgbest msg37=msgbest
if(msg37(1:3).eq.'CQ ' .and. std_2 .and. grid4.eq.' ') nharderrors=-1 if(msg37(1:3).eq.'CQ ' .and. std_2 .and. grid4.eq.' ') nharderrors=-1
if(index(msg37(1:6).eq.'QU1RK ') nharderrors=-1 if(msg37(1:6).eq.'QU1RK ') nharderrors=-1
return return
end subroutine ft8_a7d end subroutine ft8_a7d