mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-23 04:38:37 -05:00
Don't do DS for Mycall HisCall rpt OOO.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1022 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
735b4838a4
commit
0e24891d04
4
deep65.F
4
deep65.F
@ -77,9 +77,9 @@
|
|||||||
callgrid(icall)=callsign(1:j2)
|
callgrid(icall)=callsign(1:j2)
|
||||||
|
|
||||||
mz=1
|
mz=1
|
||||||
|
! 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.' ') mz=MAXRPT+1 !Allow MyCall + HisCall + rpt
|
+ flip.gt.0.0 .and. callsign(1:6).ne.' ') 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)
|
if(j3.lt.1 .and.j4.lt.1)
|
||||||
|
Loading…
Reference in New Issue
Block a user