w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Silence a compiler warning.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-06 10:58:25 -05:00
parent c7f2be4ba7
commit aee0a1e851
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/qra/q65/q65_sync.f90
View File

@ -299,6 +299,7 @@ subroutine q65_dec1(s3,nsubmode,b90ts,codewords,ncw,esnodb,irc,dat4,decoded)
use q65 use q65
use packjt77 use packjt77
real s3(1,1) !Silence compiler warning that wants to see a 2D array
real s3prob(0:63,63) !Symbol-value probabilities real s3prob(0:63,63) !Symbol-value probabilities
integer codewords(63,206) integer codewords(63,206)
integer dat4(13) integer dat4(13)