mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-03 02:26:45 -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))
|
10 ii=maxloc(ccfred(ia:ib))
|
||||||
i=ii(1) + ia - 1
|
i=ii(1) + ia - 1
|
||||||
12 f=(i-1)*df3
|
12 f=(i-1)*df3
|
||||||
if((i.eq.ipk .or. ccfred(i).ge.3.0) .and. abs(f-fgood).gt.10.0*df8 .and. &
|
if((i.eq.ipk .or. (ccfred(i).ge.3.0) .and. abs(f-fgood).gt.10.0*df8 .and. &
|
||||||
ccfok(i)) then
|
ccfok(i))) then
|
||||||
call timer('decode9a',0)
|
call timer('decode9a',0)
|
||||||
fpk=1000.0 + df3*(i-1)
|
fpk=1000.0 + df3*(i-1)
|
||||||
c1(1:npts8)=conjg(c0(1:npts8))
|
c1(1:npts8)=conjg(c0(1:npts8))
|
||||||
@ -135,8 +135,6 @@ subroutine decoder(ss,c0)
|
|||||||
|
|
||||||
write(*,1010) nsynced,ndecoded
|
write(*,1010) nsynced,ndecoded
|
||||||
1010 format('<DecodeFinished>',2i4)
|
1010 format('<DecodeFinished>',2i4)
|
||||||
flush(6)
|
|
||||||
|
|
||||||
call flush(6)
|
call flush(6)
|
||||||
|
|
||||||
call timer('decoder ',1)
|
call timer('decoder ',1)
|
||||||
|
@ -1,4 +1,4 @@
|
|||||||
//-------------------------------------------------------------- MainWindow
|
//--------------------------------------------------------------- MainWindow
|
||||||
#include "mainwindow.h"
|
#include "mainwindow.h"
|
||||||
#include "ui_mainwindow.h"
|
#include "ui_mainwindow.h"
|
||||||
#include "devsetup.h"
|
#include "devsetup.h"
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
[Setup]
|
[Setup]
|
||||||
AppName=wsjtx
|
AppName=wsjtx
|
||||||
AppVerName=wsjtx Version 0.7 r3061
|
AppVerName=wsjtx Version 0.7 r3062
|
||||||
AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT
|
AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT
|
||||||
DefaultDirName=c:\wsjtx
|
DefaultDirName=c:\wsjtx
|
||||||
DefaultGroupName=wsjtx
|
DefaultGroupName=wsjtx
|
||||||
|
Loading…
Reference in New Issue
Block a user