From cd8ec612967ce90994a88e2688e6c5bd1787286b Mon Sep 17 00:00:00 2001
From: Pavel Demin <pavel-demin@outlook.com>
Date: Mon, 15 Oct 2018 23:41:25 +0200
Subject: [PATCH] remove save cx from sync8.f90

---
 sync8.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/sync8.f90 b/sync8.f90
index a499c9e..bf67ab2 100644
--- a/sync8.f90
+++ b/sync8.f90
@@ -19,7 +19,6 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
   integer icos7(0:6)
   data icos7/2,5,6,0,4,1,3/                   !Costas 7x7 tone pattern
   equivalence (x,cx)
-  save cx
 
 ! Compute symbol spectra, stepping by NSTEP steps.
   savg=0.