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:
Joe Taylor 2013-03-20 14:31:02 +00:00
parent 2667a0651b
commit eb1ba0cf31
3 changed files with 4 additions and 6 deletions

View File

@ -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)

View File

@ -1,4 +1,4 @@
//-------------------------------------------------------------- MainWindow
//--------------------------------------------------------------- MainWindow
#include "mainwindow.h"
#include "ui_mainwindow.h"
#include "devsetup.h"

View File

@ -1,6 +1,6 @@
[Setup]
AppName=wsjtx
AppVerName=wsjtx Version 0.7 r3061
AppVerName=wsjtx Version 0.7 r3062
AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT
DefaultDirName=c:\wsjtx
DefaultGroupName=wsjtx