From 86712a577164e8942aac5d7e134010eba2b06638 Mon Sep 17 00:00:00 2001 From: Pavel Demin Date: Thu, 25 Jun 2020 15:28:54 +0000 Subject: [PATCH] increase size of allmessages and allsnrs in ft8d.f90 --- ft8d.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ft8d.f90 b/ft8d.f90 index f7deaef..d674423 100644 --- a/ft8d.f90 +++ b/ft8d.f90 @@ -5,14 +5,14 @@ program ft8d include 'ft8_params.f90' character infile*80,msg37*37,date*6,time*4 character msgcall*13,msggrid*4 - character*37 allmessages(100) + character*37 allmessages(MAXCAND) real s(NFFT1,NHSYM) real sbase(NFFT1) real candidate(3,MAXCAND) real*8 dialfreq complex dd(NMAX,4) logical newdat,lft8apon,lsubtract,ldupe - integer allsnrs(100) + integer allsnrs(MAXCAND) integer apsym(58) apsym=0