w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-18 17:45:23 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused arguments from the call to fix_contest_msg().

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7962 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-07-27 18:57:53 +00:00
parent 1110902285
commit ed95b6d373
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/fix_contest_msg.f90
View File

@ -1,16 +1,16 @@
subroutine fix_contest_msg(mycall,mygrid,hiscall,msg) subroutine fix_contest_msg(mygrid,msg)
! If msg is "mycall hiscall grid1" and distance from mygrid to grid1 is more ! If distance from mygrid to grid1 is more thsn 10000 km, change "grid1"
! thsn 10000 km, change "grid1" to "R grid2" where grid2 is the antipodes ! to "R grid2" where grid2 is the antipodes of grid1.
! of grid1.
character*6 mycall,mygrid,hiscall character*6 mygrid
character*22 msg character*22 msg
character*6 g1,g2 character*6 g1,g2
logical isgrid logical isgrid
n=len(trim(msg)) n=len(trim(msg))
if(n.lt.4) return if(n.lt.4) return
g1=msg(n-3:n)//' ' g1=msg(n-3:n)//' '
if(isgrid(g1)) then if(isgrid(g1)) then
call azdist(mygrid,g1,0.d0,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter) call azdist(mygrid,g1,0.d0,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)

2
lib/mskrtd.f90
View File

@ -209,7 +209,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall, &
if(.not. bshdecode) then if(.not. bshdecode) then
call update_hasharray(recent_calls,nrecent,nhasharray) call update_hasharray(recent_calls,nrecent,nhasharray)
! Should we call fix_contest_msg() only if bcontest is true? ! Should we call fix_contest_msg() only if bcontest is true?
call fix_contest_msg(mycall(1:6),mygrid,hiscall(1:6),msgreceived) call fix_contest_msg(mygrid,msgreceived)
endif endif
write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, & write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived, &
navg,ncorrected,eyeopening,char(0) navg,ncorrected,eyeopening,char(0)