mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 01:26:39 -04:00
Fix a problem with access to apsym0() array.
This commit is contained in:
parent
70e9df38cb
commit
e07ba410c2
@ -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)
|
||||||
|
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user