Initialize nhist2 to zero.

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

View File

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

View File

@ -11,7 +11,6 @@ subroutine q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2,codewords,ncw)
integer codewords(63,MAX_NCW)
integer itone(85)
integer isync(22)
integer time
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/