w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'sfox5b' of bitbucket.org:k1jt/wsjtx into sfox5b

Browse Source
This commit is contained in:
Joe Taylor 2024-09-17 14:46:15 -04:00
commit 75c66390ea
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/mskrtd.f90
View File

@ -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