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

Count hard errors in simulated SuperFox signal.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 13:45:53 -05:00
parent 9d882e01e5
commit 42439c2b6d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/superfox/synctest.f90
View File

@ -14,6 +14,7 @@ program synctest
complex crcvd(NMAX) !Signal as received complex crcvd(NMAX) !Signal as received
real xdat(ND) !Temporary: for generating idat real xdat(ND) !Temporary: for generating idat
integer*1 idat(ND) !Encoded data, 7-bit integers integer*1 idat(ND) !Encoded data, 7-bit integers
integer*1 jdat(ND) !Recovered hard-decision symbols
character fname*17,arg*12 character fname*17,arg*12
nargs=iargc() nargs=iargc()
@ -81,15 +82,20 @@ program synctest
call sync_sf(crcvd,clo,f,t) call sync_sf(crcvd,clo,f,t)
call hard_symbols(crcvd,f,t,jdat)
nharderr=count(jdat.ne.idat)
write(*,1100) f0,xdt write(*,1100) f0,xdt
1100 format(/'f0:',f7.1,' xdt:',f6.2) 1100 format(/'f0:',f7.1,' xdt:',f6.2)
write(*,1112) f,t write(*,1112) f,t
1112 format('f: ',f7.1,' DT:',f6.2) 1112 format('f: ',f7.1,' DT:',f6.2)
write(*,1110) f-f0,t-xdt write(*,1110) f-f0,t-xdt
1110 format('err:',f6.1,f12.2) 1110 format('err:',f6.1,f12.2)
write(*,1120) nharderr
1120 format('Hard errors:',i4)
999 end program synctest 999 end program synctest
include 'gen_sfox.f90' include 'gen_sfox.f90'
include 'sync_sf.f90' include 'sync_sf.f90'
include 'hard_symbols.f90'