Fix a problem with access to apsym0() array.

2026-06-13 11:18:42 -04:00 · 2020-12-30 15:40:06 -05:00
parent 70e9df38cb
commit e07ba410c2
2 changed files with 1 additions and 1 deletions
@@ -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)
@@ -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)