mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-23 18:02:29 -04:00
Merge branch 'sfox5b' of bitbucket.org:k1jt/wsjtx into sfox5b
This commit is contained in:
commit
75c66390ea
@ -74,15 +74,15 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,hiscall, &
|
|||||||
! dxcall13=hiscall//' '
|
! dxcall13=hiscall//' '
|
||||||
mycall13=' '
|
mycall13=' '
|
||||||
dxcall13=' '
|
dxcall13=' '
|
||||||
mycall13(1:12)=mycall
|
mycall13(1:12)=mycall(1:12)
|
||||||
dxcall13(1:12)=hiscall
|
dxcall13(1:12)=hiscall(1:12)
|
||||||
first=.false.
|
first=.false.
|
||||||
endif
|
endif
|
||||||
|
|
||||||
fc=nrxfreq
|
fc=nrxfreq
|
||||||
|
|
||||||
! Reset if mycall or dxcall changes
|
! Reset if mycall or dxcall changes
|
||||||
if(mycall13(1:12).ne.mycall .or. dxcall13(1:12).ne.hiscall) first=.true.
|
if(mycall13(1:12).ne.mycall(1:12) .or. dxcall13(1:12).ne.hiscall(1:12)) first=.true.
|
||||||
|
|
||||||
! Dupe checking setup
|
! Dupe checking setup
|
||||||
if(nutc00.ne.nutc0 .or. tsec.lt.tsec0) then ! reset dupe checker
|
if(nutc00.ne.nutc0 .or. tsec.lt.tsec0) then ! reset dupe checker
|
||||||
|
Loading…
x
Reference in New Issue
Block a user