Initialize nhist2 to zero.

2025-03-22 12:08:43 -04:00 · 2023-02-21 09:44:56 -05:00 · 2023-02-21 09:44:56 -05:00 · 06f3b36939
commit 06f3b36939
parent dddb542a66
2 changed files with 1 additions and 1 deletions
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@ -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
--- a/lib/qra/q65/q65_set_list2.f90
+++ b/lib/qra/q65/q65_set_list2.f90
@ -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/