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

Test smoothing of symbol spectra ...

Browse Source
This commit is contained in:
Joe Taylor 2024-02-10 09:29:57 -05:00
parent b6ad4d701d
commit 05d720201a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/superfox/hard_symbols.f90
View File

@ -21,6 +21,12 @@ subroutine hard_symbols(crcvd,f,t,jdat)
do i=0,NSPS-1 do i=0,NSPS-1
s(i)=real(c(i))**2 + aimag(c(i))**2 s(i)=real(c(i))**2 + aimag(c(i))**2
enddo enddo
! Could we measure fspread, perhaps in the sync routine, and use that to
! decide whether to smooth spectra here?
! call smo121(s,NSPS) !Helps for LD, HM propagation...
! call smo121(s,NSPS)
ipk=maxloc(s) ipk=maxloc(s)
ipk(1)=ipk(1)-j0 ipk(1)=ipk(1)-j0
if(ipk(1).ge.64) then if(ipk(1).ge.64) then
@ -29,7 +35,6 @@ subroutine hard_symbols(crcvd,f,t,jdat)
jdat(n)=ipk(1)+256-64 jdat(n)=ipk(1)+256-64
endif endif
enddo enddo
! jdat(NN-1:nn)=0
return return
end subroutine hard_symbols end subroutine hard_symbols