From 0bc01a19b17f568f70e875ea4b0d73c880974095 Mon Sep 17 00:00:00 2001
From: Bill Somerville <g4wjs@classdesign.com>
Date: Wed, 30 Dec 2015 14:57:50 +0000
Subject: [PATCH] Fix JT4 averaging regression

Fell  into the  Fortran  trap for  C/C++  programmers, automatic  SAVE
attribute on default initialized variables.

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

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index c0a206129..ae15a4e49 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -184,8 +184,10 @@ contains
     integer, intent(in) :: freq
     logical, intent(in) :: flip
 
-    character(len=1) :: cused='.', csync='*'
+    character(len=1) :: cused, csync
 
+    cused = '.'
+    csync = '*'
     if (used) cused = '$'
     if (flip) csync = '$'
     write(14,1000) cused,utc,sync,dt,freq,csync