w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-05 07:24:38 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fine-tuning work on decoder.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3181 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2013-04-16 18:33:38 +00:00
parent fd3b3c6ee2
commit dac3e3d8a0
4 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+8 -8
View File
@@ -63,10 +63,10 @@ subroutine decoder(ss,c0,nstandalone)
do nqd=1,0,-1
limit=5000
ccflim=4.0
ccflim=3.7
if(ndepth.ge.2) then
limit=50000
ccflim=3.0
ccflim=2.9
endif
if(ndepth.ge.3 .or. nqd.eq.1) then
limit=200000
@@ -92,8 +92,8 @@ subroutine decoder(ss,c0,nstandalone)
ib1=ib
else
do i=ia+9,ib-25
t1=ccfred(i)/(sum(ccfred(i-8:i-6)/3.0))
t2=ccfred(i)/(sum(ccfred(i+23:i+25)/3.0))
t1=ccfred(i)/(sum(ccfred(i-8:i-6)/ccflim))
t2=ccfred(i)/(sum(ccfred(i+23:i+25)/ccflim))
if(t1.ge.ccflim .and. t2.ge.ccflim) ccfok(i)=.true.
enddo
ccfok(ia1:ib1)=.false.
@@ -115,7 +115,7 @@ subroutine decoder(ss,c0,nstandalone)
if(done(i) .or. (.not.ccfok(i)) .or. (ccfred(i).lt.ccflim-1.0) .or. &
(ccfred(i).lt.ccfred(i+1))) cycle
if(nqd.eq.1 .or. &
(ccfred(i).ge.3.0 .and. abs(f-fgood).gt.10.0*df8)) then
(ccfred(i).ge.ccflim .and. abs(f-fgood).gt.10.0*df8)) then
call timer('decode9a',0)
fpk=1000.0 + df3*(i-1)
c1(1:npts8)=conjg(c0(1:npts8))
@@ -136,8 +136,8 @@ subroutine decoder(ss,c0,nstandalone)
if(msg.ne.' ') then
write(*,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg
write(13,fmt) nutc,nsync,nsnr,xdt,freq,ndrift,msg
write(14,1014) nutc,nsync,nsnr,xdt,freq,ndrift,ccfred(i),nlim,msg
1014 format(i4.4,i4,i5,f6.1,f8.0,i4,f9.1,i9,3x,a22)
! write(14,1014) nutc,nsync,nsnr,xdt,freq,ndrift,ccfred(i),nlim,msg
!1014 format(i4.4,i4,i5,f6.1,f8.0,i4,f9.1,i9,3x,a22)
iaa=max(1,i-3)
ibb=min(NSMAX,i+11)
fgood=f
@@ -157,7 +157,7 @@ subroutine decoder(ss,c0,nstandalone)
1010 format('<DecodeFinished>',2i4)
call flush(6)
close(13)
call flush(14)
! call flush(14)
call timer('decoder ',1)
if(nstandalone.eq.0) call timer('decoder ',101)