From c0699a6968fbc912b5043ea94143c04372e37369 Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Tue, 23 Oct 2018 17:51:38 +0200
Subject: [PATCH] add parameter MAXCAND

---
 ft8_params.f90 | 1 +
 ft8d.f90       | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ft8_params.f90 b/ft8_params.f90
index 6f510dc..c9c8e38 100644
--- a/ft8_params.f90
+++ b/ft8_params.f90
@@ -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)
diff --git a/ft8d.f90 b/ft8d.f90
index c6ca774..6c43b2f 100644
--- a/ft8d.f90
+++ b/ft8d.f90
@@ -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)