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

Fix a problem with access to apsym0() array.

Browse Source
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
real, allocatable :: dd(:) !Raw data
integer dat4(13) !Decoded message as 12 6-bit integers
integer apsym0(58),aph10(10)
integer apmask1(78),apsymbols1(78)
integer dgen(13)
integer codewords(63,206)

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

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