From e07ba410c219b1c15c869e587490bb0bb5fbe844 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 30 Dec 2020 15:40:06 -0500 Subject: [PATCH] Fix a problem with access to apsym0() array. --- lib/q65_decode.f90 | 1 - lib/qra/q65/q65.f90 | 1 + 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index d7c75c6ea..89c5cfd49 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -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) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index fcc023d11..d56ae6f4c 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -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)