Silence compiler warning.

This commit is contained in:
Joe Taylor 2021-01-07 12:00:11 -05:00
parent 08ef142cb9
commit f003ae653c

View File

@ -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