w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -04:00
Code Issues Packages Projects Releases Wiki Activity

additional array sizes needing adjustment

Browse Source
This commit is contained in:
Brian Moran 2024-08-12 15:42:22 -07:00
parent 3fdd69d021
commit 2e6a4f597b
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8/ft8_a7.f90
View File

@ -1,6 +1,6 @@
module ft8_a7 module ft8_a7
parameter(MAXDEC=100) parameter(MAXDEC=200)
! For the following three arrays ! For the following three arrays
! First index i=decode number in this sequence ! First index i=decode number in this sequence
@ -43,7 +43,7 @@ subroutine ft8_a7_save(nutc,dt,f,msg)
! Add this decode to current table for this sequence ! Add this decode to current table for this sequence
ndec(j,1)=ndec(j,1)+1 !Number of decodes in this sequence ndec(j,1)=ndec(j,1)+1 !Number of decodes in this sequence
i=ndec(j,1) !i is index of a new table entry i=ndec(j,1) !i is index of a new table entry
if(i.ge.MAXDEC-1) return !Prevent table overflow if(i.gt.MAXDEC) return !Prevent table overflow (indexes start at 1)
dt0(i,j,1)=dt !Save dt in table dt0(i,j,1)=dt !Save dt in table
f0(i,j,1)=f !Save f in table f0(i,j,1)=f !Save f in table

2
lib/ft8_decode.f90
View File

@ -58,7 +58,7 @@ contains
integer*2 iwave(15*12000) integer*2 iwave(15*12000)
integer apsym2(58),aph10(10) integer apsym2(58),aph10(10)
character datetime*13,msg37*37 character datetime*13,msg37*37
character*37 allmessages(200) character*37 allmessages(MAX_EARLY)
character*12 ctime character*12 ctime
integer allsnrs(MAX_EARLY) integer allsnrs(MAX_EARLY)
integer itone(NN) integer itone(NN)