w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-16 00:51:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make ft8d work with recent changes.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7767 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-01 17:58:57 +00:00
parent ad8fb434a1
commit 53dbe3248f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/fsk4hf/ft8d.f90
View File

@ -43,14 +43,16 @@ program ft8d
read(infile(j2-6:j2-1),*) nutc read(infile(j2-6:j2-1),*) nutc
datetime=infile(j2-13:j2-1) datetime=infile(j2-13:j2-1)
call sync8(iwave,nfa,nfb,nfqso,s,candidate,ncand) call sync8(iwave,nfa,nfb,nfqso,s,candidate,ncand)
syncmin=4.0 syncmin=2.0
dd=iwave
do icand=1,ncand do icand=1,ncand
sync=candidate(3,icand) sync=candidate(3,icand)
if( sync.lt.syncmin) cycle if( sync.lt.syncmin) cycle
f1=candidate(1,icand) f1=candidate(1,icand)
xdt=candidate(2,icand) xdt=candidate(2,icand)
nsnr=min(99,nint(10.0*log10(sync)-25.5)) nsnr=min(99,nint(10.0*log10(sync)-25.5))
call ft8b(s,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message) call ft8b(dd,nfqso,f1,xdt,nharderrors,dmin,nbadcrc,message,xsnr)
nsnr=xsnr
xdt=xdt-0.6 xdt=xdt-0.6
write(*,1110) datetime,0,nsnr,xdt,f1,message,nharderrors,dmin write(*,1110) datetime,0,nsnr,xdt,f1,message,nharderrors,dmin
1110 format(a13,2i4,f6.2,f7.1,' ~ ',a22,i6,f7.1) 1110 format(a13,2i4,f6.2,f7.1,' ~ ',a22,i6,f7.1)