mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-11-26 22:38:37 -05:00
increase size of allmessages and allsnrs in ft8d.f90
This commit is contained in:
parent
74591b9e35
commit
86712a5771
4
ft8d.f90
4
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
|
||||
|
Loading…
Reference in New Issue
Block a user