mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-20 19:19:02 -04:00
Fix minor bug in decoder.f90: should always try i==ipk!
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3063 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
f9d0697ed7
commit
53c6c15937
@ -92,8 +92,8 @@ subroutine decoder(ss,c0)
|
||||
10 ii=maxloc(ccfred(ia:ib))
|
||||
i=ii(1) + ia - 1
|
||||
12 f=(i-1)*df3
|
||||
if((i.eq.ipk .or. ccfred(i).ge.3.0) .and. abs(f-fgood).gt.10.0*df8 .and. &
|
||||
ccfok(i)) then
|
||||
if((i.eq.ipk .or. (ccfred(i).ge.3.0) .and. abs(f-fgood).gt.10.0*df8 .and. &
|
||||
ccfok(i))) then
|
||||
call timer('decode9a',0)
|
||||
fpk=1000.0 + df3*(i-1)
|
||||
c1(1:npts8)=conjg(c0(1:npts8))
|
||||
@ -135,8 +135,6 @@ subroutine decoder(ss,c0)
|
||||
|
||||
write(*,1010) nsynced,ndecoded
|
||||
1010 format('<DecodeFinished>',2i4)
|
||||
flush(6)
|
||||
|
||||
call flush(6)
|
||||
|
||||
call timer('decoder ',1)
|
||||
|
@ -1,4 +1,4 @@
|
||||
//-------------------------------------------------------------- MainWindow
|
||||
//--------------------------------------------------------------- MainWindow
|
||||
#include "mainwindow.h"
|
||||
#include "ui_mainwindow.h"
|
||||
#include "devsetup.h"
|
||||
|
Loading…
Reference in New Issue
Block a user