w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-04-19 01:46:44 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix the dimensions of the candidate array.

Browse Source
This commit is contained in:
Steve Franke 2018-08-08 16:05:21 +00:00
parent 20cfae891e
commit c7b9892517
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/ft8_decode.f90
View File

@ -42,9 +42,10 @@ contains
class(ft8_decoder), intent(inout) :: this
procedure(ft8_decode_callback) :: callback
parameter (MAXCAND=300)
real s(NH1,NHSYM)
real sbase(NH1)
real candidate(4,200)
real candidate(4,MAXCAND)
real dd(15*12000)
logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain
logical newdat,lsubtract,ldupe
@ -102,8 +103,8 @@ contains
lsubtract=.false.
endif
call timer('sync8 ',0)
maxcand=300
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxcand,s,candidate,ncand,sbase)
maxc=MAXCAND
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxc,s,candidate,ncand,sbase)
call timer('sync8 ',1)
do icand=1,ncand
sync=candidate(3,icand)