From cda54d586ae2ff55ba460f69a42f7b872163a670 Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sun, 2 Jul 2017 01:31:43 +0000 Subject: [PATCH] This stops Steve's mac from crashing. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7773 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fsk4hf/ft8b.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90 index 0abad6598..1e3afe372 100644 --- a/lib/fsk4hf/ft8b.f90 +++ b/lib/fsk4hf/ft8b.f90 @@ -198,6 +198,7 @@ subroutine ft8_downsample(dd,f0,c1) complex cx(0:NMAX/2-1) real dd(NMAX),x(NMAX) equivalence (x,cx) + save x df=12000.0/NMAX x=dd