From 8dd4e8cfa319c43aae96d1de764682151e84717f Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 21 Mar 2014 20:11:52 +0000
Subject: [PATCH] Correct a problem that could occasionally cause "ghost"
 decodes.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3902 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/extract.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/extract.F90 b/lib/extract.F90
index 7baadb651..942ea1004 100644
--- a/lib/extract.F90
+++ b/lib/extract.F90
@@ -71,7 +71,9 @@ subroutine extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv)
   call interleave63(mr2prob,-1)
 
   nsec1=nsec1+1
+  dat4=0
   write(22,rec=1) nsec1,xlambda,maxe,200,mrsym,mrprob,mr2sym,mr2prob
+  write(22,rec=2) -1,-1,dat4
   call flush(22)
   call timer('kvasd   ',0)
 #ifdef UNIX