w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-28 12:22:32 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove unneeded arguments from calls to q65_avg and q65_avg2.

Browse Source
This commit is contained in:
Joe Taylor 2020-12-30 09:07:41 -05:00
parent 057967a761
commit d81c01d23d
3 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/q65_decode.f90
View File

@ -160,8 +160,8 @@ contains
! No single-transmission decode. ! No single-transmission decode.
if(iand(ndepth,16).eq.16) then if(iand(ndepth,16).eq.16) then
call q65_avg2(nutc,ntrperiod,LL,ntol,lclearave, & call q65_avg2(ntrperiod,ntol,baud,nsubmode,ibwa,ibwb,codewords,ncw, &
baud,nsubmode,ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3,dat4,idec) xdt,f0,snr1,dat4,idec)
endif endif
100 decoded=' ' 100 decoded=' '

7
lib/qra/q65/q65_avg.f90
View File

@ -1,5 +1,4 @@
subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode, & subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,xdt,f0,snr1,s3)
ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3)
! Accumulate Q65 spectra s3(LL,63) and associated parameters for ! Accumulate Q65 spectra s3(LL,63) and associated parameters for
! message averaging. ! message averaging.
@ -66,8 +65,8 @@ subroutine q65_avg(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode, &
10 return 10 return
entry q65_avg2(nutc,ntrperiod,LL,ntol,lclearave,baud,nsubmode, & entry q65_avg2(ntrperiod,ntol,baud,nsubmode,ibwa,ibwb,codewords,ncw, &
ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3,dat4,idec) xdt,f0,snr1,dat4,idec)
mode_q65=2**nsubmode mode_q65=2**nsubmode
ibwa=1.8*log(baud*mode_q65) + 2 ibwa=1.8*log(baud*mode_q65) + 2

3
lib/qra/q65/q65_sync.f90
View File

@ -250,8 +250,7 @@ subroutine q65_sync(nutc,iwave,ntrperiod,mode_q65,codewords,ncw,nsps, &
enddo enddo
! write(*,3002) 'B',xdt,f0,sum(s3) ! write(*,3002) 'B',xdt,f0,sum(s3)
!3002 format(a1,f7.2,2f8.1) !3002 format(a1,f7.2,2f8.1)
call q65_avg(nutc,ntrperiod,LL,ntol,lclearave, & call q65_avg(nutc,ntrperiod,LL,ntol,lclearave,xdt,f0,snr1,s3)
baud,nsubmode,ibwa,ibwb,codewords,ncw,xdt,f0,snr1,s3)
endif endif
endif endif