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

Fix the broken S/N calculation for QRA64.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6888 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-07-07 19:27:03 +00:00
parent 873f756870
commit d4909beced
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/qra64a.f90
View File

@ -45,16 +45,16 @@ subroutine qra64a(dd,nf1,nf2,nfqso,ntol,mycall_12,sync,nsnr,dtx,nfreq, &
ss(1:NZ,j)=s ss(1:NZ,j)=s
savg=savg+s savg=savg+s
enddo enddo
savg=savg/nsteps savg=savg/nsteps
call pctile(savg,NZ,45,base)
savg=savg/base - 1.0
ss=ss/base
fa=max(nf1,nfqso-ntol) fa=max(nf1,nfqso-ntol)
fb=min(nf2,nfqso+ntol) fb=min(nf2,nfqso+ntol)
ia=nint(fa/df) ia=nint(fa/df)
ib=nint(fb/df) ib=nint(fb/df)
call pctile(savg(ia),ib-ia+1,45,base)
savg=savg/base - 1.0
ss=ss/base
red0=0. red0=0.
fac=1.0/sqrt(21.0) fac=1.0/sqrt(21.0)
sync=0. sync=0.