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

set number of candidates to 200 and add missing declarations

Browse Source
This commit is contained in:
Pavel Demin 2018-03-24 17:00:48 +01:00
parent 39480bf209
commit 6850934062
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ft8d.f90
View File

@ -5,13 +5,16 @@ program ft8d
include 'ft8_params.f90'
character infile*80,datetime*13,message*22,msg37*37
character*22 allmessages(100)
character*12 mycall12,hiscall12
character*6 mygrid6,hisgrid6
real s(NH1,NHSYM)
real sbase(NH1)
real candidate(3,100)
integer ihdr(11)
integer*2 iwave(NMAX) !Generated full-length waveform
real candidate(3,200)
real dd(NMAX)
logical newdat,lsubtract,ldupe,bcontest
integer apsym(KK)
integer ihdr(11)
integer*2 iwave(NMAX)
integer allsnrs(100)
save s,dd