w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warnings.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-19 13:20:07 -04:00
parent d5e92202d0
commit b3f539670b
4 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/jt65_decode.f90
View File

@ -187,7 +187,7 @@ contains
ncand=0 ncand=0
call timer('sync65 ',0) call timer('sync65 ',0)
call sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrob,bVHF) call sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrob,bVHF)
call timer('sync65 ',1) call timer('sync65 ',1)
! If a candidate was found within +/- ntol of nfqso, move it into ca(1). ! If a candidate was found within +/- ntol of nfqso, move it into ca(1).

2
lib/qra64a.f90
View File

@ -86,7 +86,7 @@ subroutine qra64a(dd,npts,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
idt=itry0/2 idt=itry0/2
if(mod(itry0,2).eq.0) idt=-idt if(mod(itry0,2).eq.0) idt=-idt
jpk=jpk0 + 750*idt jpk=jpk0 + 750*idt
call spec64(c0,npts2,mode64,jpk,s3a,LL,NN) call spec64(c0,jpk,s3a,LL,NN)
call pctile(s3a,LL*NN,40,base) call pctile(s3a,LL*NN,40,base)
s3a=s3a/base s3a=s3a/base
where(s3a(1:LL*NN)>s3lim) s3a(1:LL*NN)=s3lim where(s3a(1:LL*NN)>s3lim) s3a(1:LL*NN)=s3lim

2
lib/spec64.f90
View File

@ -1,4 +1,4 @@
subroutine spec64(c0,npts2,mode64,jpk,s3,LL,NN) subroutine spec64(c0,jpk,s3,LL,NN)
parameter (NSPS=3456) !Samples per symbol at 6000 Hz parameter (NSPS=3456) !Samples per symbol at 6000 Hz
complex c0(0:360000) !Complex spectrum of dd() complex c0(0:360000) !Complex spectrum of dd()

3
lib/sync65.f90
View File

@ -1,5 +1,4 @@
subroutine sync65(nfa,nfb,naggressive,ntol,nqsym,ca,ncand,nrobust, & subroutine sync65(nfa,nfb,ntol,nqsym,ca,ncand,nrobust,bVHF)
bVHF)
parameter (NSZ=3413,NFFT=8192,MAXCAND=300) parameter (NSZ=3413,NFFT=8192,MAXCAND=300)
real ss(552,NSZ) real ss(552,NSZ)