w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Silence compiler warning.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-07 12:00:11 -05:00
parent 08ef142cb9
commit f003ae653c
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

@ -326,6 +326,7 @@ subroutine q65_dec2(s3,nsubmode,b90ts,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 dat4(13) integer dat4(13)
character c77*77,decoded*37 character c77*77,decoded*37