mirror of https://github.com/pavel-demin/ft8d.git
remove maxcand argument from sync8
This commit is contained in:
parent
c0699a6968
commit
69ca3729ae
2
ft8d.f90
2
ft8d.f90
|
@ -43,7 +43,7 @@ program ft8d
|
||||||
newdat=.true.
|
newdat=.true.
|
||||||
syncmin=1.5
|
syncmin=1.5
|
||||||
call sync8(dd(1:NMAX,ipart),nfa+2000,nfb+2000,syncmin, &
|
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
|
do icand=1,ncand
|
||||||
sync=candidate(3,icand)
|
sync=candidate(3,icand)
|
||||||
f1=candidate(1,icand)
|
f1=candidate(1,icand)
|
||||||
|
|
10
sync8.f90
10
sync8.f90
|
@ -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'
|
include 'ft8_params.f90'
|
||||||
! Search over +/- 2.5s relative to 0.5s TX start time.
|
! 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)
|
complex x(NFFT1)
|
||||||
real sync2d(NFFT1,-JZ:JZ)
|
real sync2d(NFFT1,-JZ:JZ)
|
||||||
real red(NFFT1)
|
real red(NFFT1)
|
||||||
real candidate0(3,maxcand)
|
real candidate0(3,MAXCAND)
|
||||||
real candidate(3,maxcand)
|
real candidate(3,MAXCAND)
|
||||||
complex dd(NMAX)
|
complex dd(NMAX)
|
||||||
integer jpeak(NFFT1)
|
integer jpeak(NFFT1)
|
||||||
integer indx(NFFT1)
|
integer indx(NFFT1)
|
||||||
|
@ -103,9 +103,9 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,maxcand,s,candidate,ncand,sbase)
|
||||||
|
|
||||||
candidate0=0.
|
candidate0=0.
|
||||||
k=0
|
k=0
|
||||||
do i=1,maxcand
|
do i=1,MAXCAND
|
||||||
n=ia + indx(iz+1-i) - 1
|
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
|
k=k+1
|
||||||
candidate0(1,k)=n*df
|
candidate0(1,k)=n*df
|
||||||
candidate0(2,k)=(jpeak(n)-1)*tstep
|
candidate0(2,k)=(jpeak(n)-1)*tstep
|
||||||
|
|
Loading…
Reference in New Issue