comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-04-04 10:38:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

add parameter MAXCAND

Browse Source
This commit is contained in:
Pavel Demin 2018-10-23 17:51:38 +02:00
parent 6486644b81
commit c0699a6968
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ft8_params.f90
View File

@ -10,3 +10,4 @@ parameter (NFFT1=2*NSPS) !Length of FFTs for symbol spectra
parameter (NSTEP=NSPS/4) !Rough time-sync step size
parameter (NHSYM=NMAX/NSTEP-3) !Number of symbol spectra (1/4-sym steps)
parameter (NDOWN=20) !Downsample factor
parameter (MAXCAND=200)

4
ft8d.f90
View File

@ -7,7 +7,7 @@ program ft8d
character msgcall*6,msggrid*4
real s(NFFT1,NHSYM)
real sbase(NFFT1)
real candidate(3,200)
real candidate(3,MAXCAND)
real*8 dialfreq
complex dd(NMAX,4)
logical newdat
@ -43,7 +43,7 @@ program ft8d
newdat=.true.
syncmin=1.5
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
sync=candidate(3,icand)
f1=candidate(1,icand)