From 79b04fa658aea6ee13c470a2cf3336b3fd21e858 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 24 Apr 2018 14:15:13 +0000
Subject: [PATCH] Fox's Reset now clears the arrays of hound callers.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8635 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/decoder.f90 | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index ccabd5445..faafe6277 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -28,7 +28,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
   end type counting_ft8_decoder
 
   real ss(184,NSMAX)
-  logical baddata,newdat65,newdat9,single_decode,bVHF,bad0,newdat
+  logical baddata,newdat65,newdat9,single_decode,bVHF,bad0,newdat,ex
   integer*2 id2(NTMAX*12000)
   type(params_block) :: params
   real*4 dd(NTMAX*12000)
@@ -54,12 +54,21 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
 10 if (params%nagain) then
      open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',            &
           position='append',iostat=ios)
-     if(params%nmode.eq.8) open(19,file=trim(temp_dir)//'/houndcallers.txt',  &
-          status='unknown',position='append',iostat=ios)
   else
      open(13,file=trim(temp_dir)//'/decoded.txt',status='unknown',iostat=ios)
-     if(params%nmode.eq.8) open(19,file=trim(temp_dir)//'/houndcallers.txt',  &
-          status='unknown',iostat=ios)
+     if(params%nmode.eq.8) then
+        inquire(file=trim(temp_dir)//'/houndcallers.txt',exist=ex)
+        if(.not.ex) then
+           c2fox='            '
+           g2fox='    '
+           nsnrfox=-99
+           nfreqfox=-99
+           n30z=0
+           nwrap=0
+           nfox=0
+        endif
+        open(19,file=trim(temp_dir)//'/houndcallers.txt',status='unknown')
+     endif
   endif
   if(ios.ne.0) then
      nfail=nfail+1