diff --git a/lib/decjt9.f90 b/lib/decjt9.f90
index 799903c0f..ffed56d52 100644
--- a/lib/decjt9.f90
+++ b/lib/decjt9.f90
@@ -10,6 +10,7 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol,  &
   logical done(NSMAX)
   integer*2 id2(NTMAX*12000)
   integer*1 i1SoftSymbols(207)
+  save ccfred,red2
 
   nsynced=0
   ndecoded=0
diff --git a/lib/downsam9.f90 b/lib/downsam9.f90
index 8682c6e3e..c3169aaa8 100644
--- a/lib/downsam9.f90
+++ b/lib/downsam9.f90
@@ -17,7 +17,7 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
   logical first
   common/patience/npatience,nthreads
   data first/.true./
-  save plan,first
+  save plan,first,c1,s
 
   nfft1=NMAX1                                !Forward FFT length
   df1=12000.0/nfft1