w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-15 08:31:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 11:27:57 -04:00
parent 1eb63b6f84
commit a6089bc196
3 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/ft8apset.f90
View File

@ -5,8 +5,6 @@ subroutine ft8apset(mycall12,hiscall12,ncontest,apsym,aph10)
character*12 mycall12,hiscall12,hiscall character*12 mycall12,hiscall12,hiscall
character*13 hc13 character*13 hc13
character*10 c10 character*10 c10
character*6 base6
logical*1 ok1
integer apsym(58),aph10(10) integer apsym(58),aph10(10)
logical nohiscall,unpk77_success logical nohiscall,unpk77_success

2
lib/ft8/ft8b.f90
View File

@ -1,6 +1,6 @@
subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, & subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon, &
lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12,hiscall12, & lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12,hiscall12, &
sync0,f1,xdt,xbase,apsym,aph10,nharderrors,dmin,nbadcrc,ipass,iera, & f1,xdt,xbase,apsym,aph10,nharderrors,dmin,nbadcrc,ipass, &
msg37,xsnr,itone) msg37,xsnr,itone)
use crc use crc

4
lib/ft8_decode.f90
View File

@ -156,8 +156,8 @@ contains
call timer('ft8b ',0) call timer('ft8b ',0)
call ft8b(dd,newdat,nQSOProgress,nfqso,nftx,ndeep,nzhsym,lft8apon, & call ft8b(dd,newdat,nQSOProgress,nfqso,nftx,ndeep,nzhsym,lft8apon, &
lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12, & lapcqonly,napwid,lsubtract,nagain,ncontest,iaptype,mycall12, &
hiscall12,sync,f1,xdt,xbase,apsym2,aph10,nharderrors,dmin, & hiscall12,f1,xdt,xbase,apsym2,aph10,nharderrors,dmin, &
nbadcrc,iappass,iera,msg37,xsnr,itone) nbadcrc,iappass,msg37,xsnr,itone)
call timer('ft8b ',1) call timer('ft8b ',1)
nsnr=nint(xsnr) nsnr=nint(xsnr)
xdt=xdt-0.5 xdt=xdt-0.5