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

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-14 15:19:33 -05:00
parent 921831119c
commit cbb939453f
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/q65_decode.f90
View File

@ -166,11 +166,17 @@ contains
enddo enddo
if(iand(ndepth,16).eq.16) then if(iand(ndepth,16).eq.16) then
! There was no single-transmission decode. Try for an average decode. ! There was no single-transmission decode. Try for an average 'q3n' decode.
call timer('list_avg',0) call timer('list_avg',0)
call q65_q3a(xdt,f0,nfqso,nsps,snr2,dat4,idec,decoded) call q65_q3a(xdt,f0,nfqso,nsps,snr2,dat4,idec,decoded)
call timer('list_avg',1) call timer('list_avg',1)
nused=navg if(idec.ge.0) then
nused=navg
go to 100
endif
! There was no 'q3n' decode. Try for a 'q[012]n' decode.
! call q65_q012a()
endif endif
100 decoded=' ' 100 decoded=' '

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

@ -60,7 +60,7 @@ subroutine q65_dec0(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
if(nutc+ndepth.eq.-999) stop !Silence compiler warnings if(nutc+ndepth.eq.-999) stop !Silence compiler warnings
! Set seom parameters and allocate storage for large arrays ! Set some parameters and allocate storage for large arrays
irc=-2 irc=-2
idec=-1 idec=-1
snr1=0. snr1=0.
@ -104,10 +104,10 @@ subroutine q65_dec0(nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, &
if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index if(nsps.ge.7200) j0=1.0/dtstep !Nominal start-signal index
s3=0. s3=0.
call timer('s1 ',0) call timer('q65_syms',0)
! Compute symbol spectra with NSTEP time bins per symbol ! Compute symbol spectra with NSTEP time bins per symbol
call q65_symspec(iwave,ntrperiod*12000,iz,jz,s1) call q65_symspec(iwave,ntrperiod*12000,iz,jz,s1)
call timer('s1 ',1) call timer('q65_syms',1)
i0=nint(nfqso/df) !Target QSO frequency i0=nint(nfqso/df) !Target QSO frequency
if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900 !Frequency out of range if(i0-64.lt.1 .or. i0-65+LL.gt.iz) go to 900 !Frequency out of range