From 06f3b36939d7264181257761a6523024171da033 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 21 Feb 2023 09:44:56 -0500
Subject: [PATCH] Initialize nhist2 to zero.
---
lib/q65_decode.f90 | 1 +
lib/qra/q65/q65_set_list2.f90 | 1 -
2 files changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index d6cad6999..95c7d91f7 100644
--- 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
diff --git a/lib/qra/q65/q65_set_list2.f90 b/lib/qra/q65/q65_set_list2.f90
index 6cce406c6..a01681e6d 100644
--- 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/