Silence a compiler warning.

This commit is contained in:
Joe Taylor 2021-01-06 10:58:25 -05:00
parent c7f2be4ba7
commit aee0a1e851

View File

@ -299,6 +299,7 @@ subroutine q65_dec1(s3,nsubmode,b90ts,codewords,ncw,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 codewords(63,206)
integer dat4(13)