comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-02-03 09:44:19 -05:00
Code Issues Packages Projects Releases Wiki Activity

remove maxcand argument from sync8

Browse Source
This commit is contained in:
Pavel Demin 2018-10-23 23:16:47 +02:00
parent c0699a6968
commit 69ca3729ae
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ft8d.f90
View File

@ -43,7 +43,7 @@ program ft8d
newdat=.true.
syncmin=1.5
call sync8(dd(1:NMAX,ipart),nfa+2000,nfb+2000,syncmin, &
nfqso+2000,MAXCAND,s,candidate,ncand,sbase)
nfqso+2000,s,candidate,ncand,sbase)
do icand=1,ncand
sync=candidate(3,icand)
f1=candidate(1,icand)

10
sync8.f90
View File

@ -1,4 +1,4 @@
subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate,ncand,sbase)
subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
include 'ft8_params.f90'
! Search over +/- 2.5s relative to 0.5s TX start time.
@ -10,8 +10,8 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate,ncand,sbase)
complex x(NFFT1)
real sync2d(NFFT1,-JZ:JZ)
real red(NFFT1)
real candidate0(3,maxcand)
real candidate(3,maxcand)
real candidate0(3,MAXCAND)
real candidate(3,MAXCAND)
complex dd(NMAX)
integer jpeak(NFFT1)
integer indx(NFFT1)
@ -103,9 +103,9 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate,ncand,sbase)
candidate0=0.
k=0
do i=1,maxcand
do i=1,MAXCAND
n=ia + indx(iz+1-i) - 1
if(red(n).lt.syncmin.or.isnan(red(n)).or.k.eq.maxcand) exit
if(red(n).lt.syncmin.or.isnan(red(n)).or.k.eq.MAXCAND) exit
k=k+1
candidate0(1,k)=n*df
candidate0(2,k)=(jpeak(n)-1)*tstep