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

Check for hard symbol errors.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 14:02:33 -05:00
parent 42439c2b6d
commit 3434faf84a
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lib/superfox/hard_symbols.f90 Normal file
View File

@ -0,0 +1,32 @@
subroutine hard_symbols(crcvd,f,t,jdat)
include "sfox_params.f90"
complex crcvd(NMAX) !Signal as received
complex c(0:NSPS-1) !Work array, one symbol long
real s(0:NSPS-1) !Power spectrum
integer*1 jdat(ND) !Recovered hard-decision symbols
integer ipk(1)
i0=nint(12000.0*t)
df=12000.0/NSPS
j0=nint(f/df)-128
do n=1,ND !Loop over all symbols
ib=n*NSPS + i0
if(n.gt.ND1) ib=(NS+n)*NSPS + i0
ia=ib-NSPS+1
c=crcvd(ia:ib)
call four2a(c,NSPS,1,-1,1) !Compute symbol spectrum
do i=0,NSPS-1
s(i)=real(c(i))**2 + aimag(c(i))**2
enddo
ipk=maxloc(s)
ipk(1)=ipk(1)-j0
if(ipk(1).ge.64) then
jdat(n)=ipk(1)-64
else
jdat(n)=ipk(1)+256-64
endif
enddo
return
end subroutine hard_symbols