w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-01 14:22:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Compute symbol spectra at 1/4 symbol steps, rather than 1/8 symbol.

Browse Source
This commit is contained in:
Joe Taylor 2023-01-23 17:25:31 -05:00
parent d7859062bb
commit 73db6eb28f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,7 +294,7 @@ subroutine q65_symspec(iwave,nmax,iz,jz,s1)
allocate(c0(0:nsps-1)) allocate(c0(0:nsps-1))
nfft=nsps nfft=nsps
fac=1/32767.0 fac=1/32767.0
do j=1,jz !Compute symbol spectra at step size do j=1,jz,2 !Compute symbol spectra at 2*step size
i1=(j-1)*istep i1=(j-1)*istep
i2=i1+nsps-1 i2=i1+nsps-1
k=-1 k=-1
@ -314,6 +314,8 @@ subroutine q65_symspec(iwave,nmax,iz,jz,s1)
do i=1,nsmo do i=1,nsmo
call smo121(s1(1:iz,j),iz) call smo121(s1(1:iz,j),iz)
enddo enddo
! Interpolate to fill in the skipped-over spectra.
if(j.ge.3) s1(1:iz,j-1)=0.5*(s1(1:iz,j-2)+s1(1:iz,j))
enddo enddo
if(lnewdat) then if(lnewdat) then
navg(iseq)=navg(iseq) + 1 navg(iseq)=navg(iseq) + 1