mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-04 16:31:17 -05:00
113f1770ff
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2776 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
91 lines
2.0 KiB
Fortran
91 lines
2.0 KiB
Fortran
subroutine symspec2(c5,nz3,nsps8,nspsd,fsample,snrdb,i1SoftSymbolsScrambled)
|
|
|
|
complex c5(0:4096-1)
|
|
complex z
|
|
integer*1 i1SoftSymbolsScrambled(207)
|
|
real aa(3)
|
|
real ss2(0:8,85)
|
|
real ss3(0:7,69)
|
|
integer*1 i1
|
|
equivalence (i1,i4)
|
|
include 'jt9sync.f90'
|
|
|
|
aa(1)=-1500.0/nsps8
|
|
aa(2)=0.
|
|
aa(3)=0.
|
|
do i=0,8
|
|
if(i.ge.1) call twkfreq(c5,c5,nz3,fsample,aa)
|
|
m=0
|
|
k=-1
|
|
do j=1,85
|
|
z=0.
|
|
do n=1,nspsd
|
|
k=k+1
|
|
z=z+c5(k)
|
|
enddo
|
|
ss2(i,j)=real(z)**2 + aimag(z)**2
|
|
if(i.ge.1 .and. isync(j).eq.0) then
|
|
m=m+1
|
|
ss3(i-1,m)=ss2(i,j)
|
|
endif
|
|
enddo
|
|
enddo
|
|
|
|
!###
|
|
ss=0.
|
|
sig=0.
|
|
do j=1,69
|
|
smax=0.
|
|
do i=0,7
|
|
smax=max(smax,ss3(i,j))
|
|
ss=ss+ss3(i,j)
|
|
enddo
|
|
sig=sig+smax
|
|
ss=ss-smax
|
|
enddo
|
|
ave=ss/(69*7)
|
|
call pctile(ss2,9*85,35,xmed)
|
|
ss3=ss3/ave
|
|
|
|
sig=sig/69.
|
|
df8=1500.0/nsps8
|
|
! t=max(1.0,sig/xmed - 1.0)
|
|
! snrdb=db(t) - db(2500.0/df8) - 4.5
|
|
t=max(1.0,sig - 1.0)
|
|
snrdb=db(t) - 60.3
|
|
! write(71,3001) ave,xmed,sig,db(sig),t,snrdb
|
|
!3001 format(6f12.2)
|
|
! call flush(71)
|
|
|
|
m0=3
|
|
k=0
|
|
do j=1,69
|
|
smax=0.
|
|
do i=0,7
|
|
if(ss3(i,j).gt.smax) smax=ss3(i,j)
|
|
enddo
|
|
|
|
do m=m0-1,0,-1 !Get bit-wise soft symbols
|
|
if(m.eq.2) then
|
|
r1=max(ss3(4,j),ss3(5,j),ss3(6,j),ss3(7,j))
|
|
r0=max(ss3(0,j),ss3(1,j),ss3(2,j),ss3(3,j))
|
|
else if(m.eq.1) then
|
|
r1=max(ss3(2,j),ss3(3,j),ss3(4,j),ss3(5,j))
|
|
r0=max(ss3(0,j),ss3(1,j),ss3(6,j),ss3(7,j))
|
|
else
|
|
r1=max(ss3(1,j),ss3(2,j),ss3(4,j),ss3(7,j))
|
|
r0=max(ss3(0,j),ss3(3,j),ss3(5,j),ss3(6,j))
|
|
endif
|
|
|
|
k=k+1
|
|
i4=nint(10.0*(r1-r0))
|
|
if(i4.lt.-127) i4=-127
|
|
if(i4.gt.127) i4=127
|
|
i4=i4+128
|
|
i1SoftSymbolsScrambled(k)=i1
|
|
enddo
|
|
enddo
|
|
|
|
return
|
|
end subroutine symspec2
|