mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-09-27 15:46:57 -04:00
add parameter MAXCAND
This commit is contained in:
parent
6486644b81
commit
c0699a6968
@ -10,3 +10,4 @@ parameter (NFFT1=2*NSPS) !Length of FFTs for symbol spectra
|
|||||||
parameter (NSTEP=NSPS/4) !Rough time-sync step size
|
parameter (NSTEP=NSPS/4) !Rough time-sync step size
|
||||||
parameter (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
|
parameter (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
|
||||||
parameter (NDOWN=20) !Downsample factor
|
parameter (NDOWN=20) !Downsample factor
|
||||||
|
parameter (MAXCAND=200)
|
||||||
|
4
ft8d.f90
4
ft8d.f90
@ -7,7 +7,7 @@ program ft8d
|
|||||||
character msgcall*6,msggrid*4
|
character msgcall*6,msggrid*4
|
||||||
real s(NFFT1,NHSYM)
|
real s(NFFT1,NHSYM)
|
||||||
real sbase(NFFT1)
|
real sbase(NFFT1)
|
||||||
real candidate(3,200)
|
real candidate(3,MAXCAND)
|
||||||
real*8 dialfreq
|
real*8 dialfreq
|
||||||
complex dd(NMAX,4)
|
complex dd(NMAX,4)
|
||||||
logical newdat
|
logical newdat
|
||||||
@ -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,200,s,candidate,ncand,sbase)
|
nfqso+2000,MAXCAND,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)
|
||||||
|
Loading…
Reference in New Issue
Block a user