w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 22:52:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove more unused dummy arguments.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-24 08:17:42 -05:00
parent afcb034956
commit a76239dd76
2 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/q65_decode.f90
View File

@ -289,7 +289,7 @@ contains
ndecodes=min(ndecodes+1,100) ndecodes=min(ndecodes+1,100)
decodes(ndecodes)=decoded decodes(ndecodes)=decoded
f0decodes(ndecodes)=f0dec f0decodes(ndecodes)=f0dec
call q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) call q65_snr(dat4,dtdec,f0dec,mode_q65,snr2)
nsnr=nint(snr2) nsnr=nint(snr2)
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
idec,nused,ntrperiod) idec,nused,ntrperiod)
@ -379,7 +379,7 @@ contains
ndecodes=min(ndecodes+1,100) ndecodes=min(ndecodes+1,100)
decodes(ndecodes)=decoded decodes(ndecodes)=decoded
f0decodes(ndecodes)=f0dec f0decodes(ndecodes)=f0dec
call q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) call q65_snr(dat4,dtdec,f0dec,mode_q65,snr2)
nsnr=nint(snr2) nsnr=nint(snr2)
call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, & call this%callback(nutc,snr1,nsnr,dtdec,f0dec,decoded, &
idec,nused,ntrperiod) idec,nused,ntrperiod)

12
lib/qra/q65/q65.f90
View File

@ -182,7 +182,7 @@ subroutine q65_dec0(iavg,iwave,ntrperiod,nfqso,ntol,lclearave, &
! Get 2d CCF and ccf2 using sync symbols only ! Get 2d CCF and ccf2 using sync symbols only
if(iavg.eq.0) then if(iavg.eq.0) then
call timer('ccf_22a ',0) call timer('ccf_22a ',0)
call q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, & call q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, &
f0a,xdta,ccf2) f0a,xdta,ccf2)
call timer('ccf_22a ',1) call timer('ccf_22a ',1)
endif endif
@ -190,7 +190,7 @@ subroutine q65_dec0(iavg,iwave,ntrperiod,nfqso,ntol,lclearave, &
! Get 2d CCF and ccf2_avg using sync symbols only ! Get 2d CCF and ccf2_avg using sync symbols only
if(iavg.ge.1) then if(iavg.ge.1) then
call timer('ccf_22b ',0) call timer('ccf_22b ',0)
call q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, & call q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, &
f0a,xdta,ccf2_avg) f0a,xdta,ccf2_avg)
call timer('ccf_22b ',1) call timer('ccf_22b ',1)
endif endif
@ -486,7 +486,7 @@ subroutine q65_ccf_85(s1,iz,jz,nfqso,ia,ia2,ipk,jpk,f0,xdt,imsg_best, &
return return
end subroutine q65_ccf_85 end subroutine q65_ccf_85
subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, & subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,iavg,ipk,jpk, &
f0,xdt,ccf2) f0,xdt,ccf2)
! Attempt synchronization using only the 22 sync symbols. Return ccf2 ! Attempt synchronization using only the 22 sync symbols. Return ccf2
@ -497,7 +497,6 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, &
real, allocatable :: xdt2(:) real, allocatable :: xdt2(:)
real, allocatable :: s1avg(:) real, allocatable :: s1avg(:)
integer, allocatable :: indx(:) integer, allocatable :: indx(:)
integer ipk1(1)
allocate(xdt2(iz)) allocate(xdt2(iz))
allocate(s1avg(iz)) allocate(s1avg(iz))
@ -520,6 +519,7 @@ subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, &
ibest=0 ibest=0
lagpk=0 lagpk=0
lagbest=0 lagbest=0
idrift_max=0
idrift_best=0 idrift_best=0
do i=ia,ib do i=ia,ib
@ -747,7 +747,7 @@ subroutine q65_bzap(s3,LL)
return return
end subroutine q65_bzap end subroutine q65_bzap
subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2) subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,snr2)
! Estimate SNR of a decoded transmission by aligning the spectra of ! Estimate SNR of a decoded transmission by aligning the spectra of
! all 85 symbols. ! all 85 symbols.
@ -795,8 +795,6 @@ subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,nused,snr2)
sig_area=sum(spec(ia+nsum:ib-nsum)-1.0) sig_area=sum(spec(ia+nsum:ib-nsum)-1.0)
w_equiv=sig_area/(smax-1.0) w_equiv=sig_area/(smax-1.0)
snr2=db(max(1.0,sig_area)) - db(2500.0/df) snr2=db(max(1.0,sig_area)) - db(2500.0/df)
! NB: No adjustment to SNR is now made for nused>1, because that process did
! not seem to work as expected.
return return
end subroutine q65_snr end subroutine q65_snr