increase size of allmessages and allsnrs in ft8d.f90

This commit is contained in:
Pavel Demin 2020-06-25 15:28:54 +00:00
parent 74591b9e35
commit 86712a5771

View File

@ -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