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

Remove ndepth from argument lists where it's not needed.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-23 19:03:57 -05:00
parent 1fff588991
commit aec42afda7
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/q65_decode.f90
View File

@ -176,7 +176,7 @@ contains
call timer('q65_dec0',0) call timer('q65_dec0',0)
! Call top-level routine in q65 module: establish sync and try for a ! Call top-level routine in q65 module: establish sync and try for a
! q3 or q0 decode. ! q3 or q0 decode.
call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,lclearave, &
emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno)
call timer('q65_dec0',1) call timer('q65_dec0',1)
@ -227,7 +227,7 @@ contains
! Call top-level routine in q65 module: establish sync and try for a q3 ! Call top-level routine in q65 module: establish sync and try for a q3
! decode, this time using the cumulative 's1a' symbol spectra. ! decode, this time using the cumulative 's1a' symbol spectra.
iavg=1 iavg=1
call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,lclearave, &
emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno)
call timer('list_avg',1) call timer('list_avg',1)
@ -244,7 +244,7 @@ contains
call timer('q65_avg ',0) call timer('q65_avg ',0)
iavg=2 iavg=2
call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,lclearave, &
emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno)
call timer('q65_avg ',1) call timer('q65_avg ',1)
if(idec.ge.0) then if(idec.ge.0) then
@ -258,7 +258,7 @@ contains
call timer('q65_dec0',0) call timer('q65_dec0',0)
! Call top-level routine in q65 module: establish sync and try for a ! Call top-level routine in q65 module: establish sync and try for a
! q3 or q0 decode. ! q3 or q0 decode.
call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & call q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,lclearave, &
emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno)
call timer('q65_dec0',1) call timer('q65_dec0',1)
if(idec.ge.0) then if(idec.ge.0) then

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

@ -28,7 +28,7 @@ module q65
contains contains
subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,lclearave, &
emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno) emedelay,xdt,f0,snr1,width,dat4,snr2,idec,stageno)
! Top-level routine in q65 module ! Top-level routine in q65 module
@ -41,7 +41,6 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
! ntrperiod T/R sequence length (s) ! ntrperiod T/R sequence length (s)
! nfqso Target frequency (Hz) ! nfqso Target frequency (Hz)
! ntol Search range around nfqso (Hz) ! ntol Search range around nfqso (Hz)
! ndepth Requested decoding depth
! lclearave Flag to clear the accumulating array ! lclearave Flag to clear the accumulating array
! emedelay Extra delay for EME signals ! emedelay Extra delay for EME signals
! Output: xdt Time offset from nominal (s) ! Output: xdt Time offset from nominal (s)
@ -76,7 +75,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
integer stageno integer stageno
NN=63 NN=63
if(nutc+ndepth.eq.-999) stop !Silence compiler warnings if(nutc.eq.-999) stop !Silence compiler warnings
! Set some parameters and allocate storage for large arrays ! Set some parameters and allocate storage for large arrays
irc=-2 irc=-2
@ -184,7 +183,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,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,ndepth,ntrperiod,iavg,ipk,jpk, & call q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, &
f0a,xdta,ccf2) f0a,xdta,ccf2)
call timer('ccf_22a ',1) call timer('ccf_22a ',1)
endif endif
@ -192,7 +191,7 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,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,ndepth,ntrperiod,iavg,ipk,jpk, & call q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,iavg,ipk,jpk, &
f0a,xdta,ccf2_avg) f0a,xdta,ccf2_avg)
call timer('ccf_22b ',1) call timer('ccf_22b ',1)
endif endif
@ -488,7 +487,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,ndepth,ntrperiod,iavg,ipk,jpk, & subroutine q65_ccf_22(s1,iz,jz,nfqso,ntol,ntrperiod,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