w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-03 21:57:48 -04:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 10:43:45 -04:00
parent 430a413f95
commit 4fa3ee3437
5 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/decoder.f90
View File

@ -159,7 +159,7 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample)
if(params%nmode.eq.5) then if(params%nmode.eq.5) then
call timer('decft4 ',0) call timer('decft4 ',0)
call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, & call my_ft4%decode(ft4_decoded,id2,params%nQSOProgress,params%nfqso, &
params%nutc,params%nfa,params%nfb,params%ndepth, & params%nfa,params%nfb,params%ndepth, &
logical(params%lapcqonly),ncontest,mycall,hiscall) logical(params%lapcqonly),ncontest,mycall,hiscall)
call timer('decft4 ',1) call timer('decft4 ',1)
go to 800 go to 800

2
lib/ft4/ft4sim.f90
View File

@ -12,8 +12,6 @@ program ft4sim
complex c0(0:NMAX-1) complex c0(0:NMAX-1)
complex c(0:NMAX-1) complex c(0:NMAX-1)
real wave(NMAX) real wave(NMAX)
real dphi(0:NMAX-1)
real pulse(3*NSPS)
integer itone(NN) integer itone(NN)
integer*1 msgbits(77) integer*1 msgbits(77)
integer*2 iwave(NMAX) !Generated full-length waveform integer*2 iwave(NMAX) !Generated full-length waveform

6
lib/ft4_decode.f90
View File

@ -24,7 +24,7 @@ module ft4_decode
contains contains
subroutine decode(this,callback,iwave,nQSOProgress,nfqso, & subroutine decode(this,callback,iwave,nQSOProgress,nfqso, &
nutc,nfa,nfb,ndepth,lapcqonly,ncontest,mycall,hiscall) nfa,nfb,ndepth,lapcqonly,ncontest,mycall,hiscall)
use timer_module, only: timer use timer_module, only: timer
use packjt77 use packjt77
include 'ft4/ft4_params.f90' include 'ft4/ft4_params.f90'
@ -86,6 +86,8 @@ contains
this%callback => callback this%callback => callback
hhmmss=cdatetime0(8:13) hhmmss=cdatetime0(8:13)
smax1=0.
nd1=0
if(first) then if(first) then
fs=12000.0/NDOWN !Sample rate after downsampling fs=12000.0/NDOWN !Sample rate after downsampling
@ -447,8 +449,6 @@ contains
nsnr=nint(max(-21.0,xsnr)) nsnr=nint(max(-21.0,xsnr))
xdt=ibest/666.67 - 0.5 xdt=ibest/666.67 - 0.5
qual=1.0-(nharderror+dmin)/60.0 qual=1.0-(nharderror+dmin)/60.0
!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4,f6.2)') &
! nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg,qual
call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual) call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual)
exit exit
endif endif

3
lib/ft8/osd174_91.f90
View File

@ -104,6 +104,8 @@ dmin=sum(nxor*absrx)
cw=c0 cw=c0
ntotal=0 ntotal=0
nrejected=0 nrejected=0
npre1=0
npre2=0
if(ndeep.eq.0) goto 998 ! norder=0 if(ndeep.eq.0) goto 998 ! norder=0
if(ndeep.gt.5) ndeep=5 if(ndeep.gt.5) ndeep=5
@ -152,6 +154,7 @@ do iorder=1,nord
else else
iend=1 iend=1
endif endif
d1=0.
do n1=iflag,iend,-1 do n1=iflag,iend,-1
mi=misub mi=misub
mi(n1)=1 mi(n1)=1

1
lib/wsprd/osdwspr.f90
View File

@ -145,6 +145,7 @@ do iorder=1,nord
else else
iend=1 iend=1
endif endif
d1=0.
do n1=iflag,iend,-1 do n1=iflag,iend,-1
mi=misub mi=misub
mi(n1)=1 mi(n1)=1