mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 16:16:48 -04:00
Fix deep65.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2993 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
894ac28f67
commit
9390a7d19d
@ -76,8 +76,8 @@ subroutine deep65(s3,mode65,neme,flip,mycall,hiscall,hisgrid,decoded,qual)
|
|||||||
|
|
||||||
mz=1
|
mz=1
|
||||||
! Allow MyCall + HisCall + rpt (?)
|
! Allow MyCall + HisCall + rpt (?)
|
||||||
if(n.eq.1 .and. j3.lt.1 .and. j4.lt.1 .and. &
|
if(n.eq.1 .and. j3.lt.1 .and. j4.lt.1 .and. callsign(1:6).ne.' ') &
|
||||||
flip.gt.0.0 .and. callsign(1:6).ne.' ') mz=MAXRPT+1
|
mz=MAXRPT+1
|
||||||
do m=1,mz
|
do m=1,mz
|
||||||
if(m.gt.1) grid=rpt(m-1)
|
if(m.gt.1) grid=rpt(m-1)
|
||||||
if(j3.lt.1 .and.j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid
|
if(j3.lt.1 .and.j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid
|
||||||
@ -111,6 +111,7 @@ subroutine deep65(s3,mode65,neme,flip,mycall,hiscall,hisgrid,decoded,qual)
|
|||||||
p2=-1.e30
|
p2=-1.e30
|
||||||
do k=1,ntot
|
do k=1,ntot
|
||||||
pp(k)=0.
|
pp(k)=0.
|
||||||
|
if(k.ge.2 .and. k.le.64 .and. flip.lt.0.0) cycle
|
||||||
! Test all messages if flip=+1; skip the CQ messages if flip=-1.
|
! Test all messages if flip=+1; skip the CQ messages if flip=-1.
|
||||||
if(flip.gt.0.0 .or. testmsg(k)(1:3).ne.'CQ ') then
|
if(flip.gt.0.0 .or. testmsg(k)(1:3).ne.'CQ ') then
|
||||||
sum=0.
|
sum=0.
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
//------------------------------------------------------------- MainWindow
|
//------------------------------------------------------------ MainWindow
|
||||||
#include "mainwindow.h"
|
#include "mainwindow.h"
|
||||||
#include "ui_mainwindow.h"
|
#include "ui_mainwindow.h"
|
||||||
#include "devsetup.h"
|
#include "devsetup.h"
|
||||||
|
Loading…
Reference in New Issue
Block a user