mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-09-03 05:38:01 -04:00
Fix the dimensions of the candidate array.
This commit is contained in:
parent
20cfae891e
commit
c7b9892517
@ -42,9 +42,10 @@ contains
|
|||||||
|
|
||||||
class(ft8_decoder), intent(inout) :: this
|
class(ft8_decoder), intent(inout) :: this
|
||||||
procedure(ft8_decode_callback) :: callback
|
procedure(ft8_decode_callback) :: callback
|
||||||
|
parameter (MAXCAND=300)
|
||||||
real s(NH1,NHSYM)
|
real s(NH1,NHSYM)
|
||||||
real sbase(NH1)
|
real sbase(NH1)
|
||||||
real candidate(4,200)
|
real candidate(4,MAXCAND)
|
||||||
real dd(15*12000)
|
real dd(15*12000)
|
||||||
logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain
|
logical, intent(in) :: lft8apon,lapcqonly,ldecode77,nagain
|
||||||
logical newdat,lsubtract,ldupe
|
logical newdat,lsubtract,ldupe
|
||||||
@ -102,8 +103,8 @@ contains
|
|||||||
lsubtract=.false.
|
lsubtract=.false.
|
||||||
endif
|
endif
|
||||||
call timer('sync8 ',0)
|
call timer('sync8 ',0)
|
||||||
maxcand=300
|
maxc=MAXCAND
|
||||||
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxcand,s,candidate,ncand,sbase)
|
call sync8(dd,ifa,ifb,syncmin,nfqso,ldecode77,maxc,s,candidate,ncand,sbase)
|
||||||
call timer('sync8 ',1)
|
call timer('sync8 ',1)
|
||||||
do icand=1,ncand
|
do icand=1,ncand
|
||||||
sync=candidate(3,icand)
|
sync=candidate(3,icand)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user