w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-07 15:47:51 -04:00
Code Issues Packages Projects Releases Wiki Activity

Initialize nhist2 to zero.

Browse Source
This commit is contained in:
Joe Taylor 2023-02-21 09:44:56 -05:00
parent dddb542a66
commit 06f3b36939
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/q65_decode.f90
View File

@ -108,6 +108,7 @@ contains
nfft1=ntrperiod*12000 nfft1=ntrperiod*12000
nfft2=ntrperiod*6000 nfft2=ntrperiod*6000
npasses=1 npasses=1
nhist2=0
if(lagain) ndepth=ior(ndepth,3) !Use 'Deep' for manual Q65 decodes if(lagain) ndepth=ior(ndepth,3) !Use 'Deep' for manual Q65 decodes
dxcall13=hiscall ! initialize for use in packjt77 dxcall13=hiscall ! initialize for use in packjt77
mycall13=mycall mycall13=mycall

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

@ -11,7 +11,6 @@ subroutine q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2,codewords,ncw)
integer codewords(63,MAX_NCW) integer codewords(63,MAX_NCW)
integer itone(85) integer itone(85)
integer isync(22) integer isync(22)
integer time
type(q3list) callers(MAX_CALLERS) type(q3list) callers(MAX_CALLERS)
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/ data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/