w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix a problem with access to apsym0() array.

This commit is contained in:
Joe Taylor 2020-12-30 15:40:06 -05:00
parent 70e9df38cb
commit e07ba410c2
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/q65_decode.f90
View File

@ -55,7 +55,6 @@ contains
integer*2 iwave(NMAX) !Raw data integer*2 iwave(NMAX) !Raw data
real, allocatable :: dd(:) !Raw data real, allocatable :: dd(:) !Raw data
integer dat4(13) !Decoded message as 12 6-bit integers integer dat4(13) !Decoded message as 12 6-bit integers
integer apsym0(58),aph10(10)
integer apmask1(78),apsymbols1(78) integer apmask1(78),apsymbols1(78)
integer dgen(13) integer dgen(13)
integer codewords(63,206) integer codewords(63,206)

1
lib/qra/q65/q65.f90
View File

@ -6,6 +6,7 @@ module q65
integer iutc(MAXAVE) integer iutc(MAXAVE)
integer iseq(MAXAVE) integer iseq(MAXAVE)
integer listutc(10) integer listutc(10)
integer apsym0(58),aph10(10)
integer apmask(13),apsymbols(13) integer apmask(13),apsymbols(13)
integer navg integer navg
real f0save(MAXAVE) real f0save(MAXAVE)