diff --git a/fsubs.f b/fsubs.f
index 2bddf1902..1b9f369be 100644
--- a/fsubs.f
+++ b/fsubs.f
@@ -19,7 +19,8 @@
       include 'flat1.f'
 
 #ifdef Win32
-      include 'four2a.f'
+!      include 'four2a.f'       !Multi-threading problems with FFTW3
+      include 'four2.f'
 #else
       include 'four2.f'
       include 'rfile2.f'
diff --git a/sync.f b/sync.f
index 450857261..d8b317c1f 100644
--- a/sync.f
+++ b/sync.f
@@ -3,20 +3,19 @@
 C  Input data are in the y# arrays: detected sigs in four tone-channels,
 C  before decimation by NSPD.
 
-      parameter (NSPDMAX=200)
+      parameter (NSPD=25)
       real y1(npts)
       real y2(npts)
       real y3(npts)
       real y4(npts)
-      real zf(NSPDMAX)
+      real zf(NSPD)
       complex csum
-      integer nsum(NSPDMAX)
+      integer nsum(NSPD)
       real z(65538)                            !Ready for FSK110
       complex cz(0:32768)
       equivalence (z,cz)
       data twopi/6.283185307/
 
-      NSPD=25
       do i=1,NSPD
          zf(i)=0.0
          nsum(i)=0