Silence compiler warning.

2021-01-07 12:00:11 -05:00 · 2021-01-07 12:00:11 -05:00 · f003ae653c
parent 08ef142cb9
commit f003ae653c
1 changed files with 1 additions and 0 deletions
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@ -326,6 +326,7 @@ subroutine q65_dec2(s3,nsubmode,b90ts,esnodb,irc,dat4,decoded)

  use q65
  use packjt77
+  real s3(1,1)       !Silence compiler warning that wants to see a 2D array
  real s3prob(0:63,63)                   !Symbol-value probabilities
  integer dat4(13)
  character c77*77,decoded*37