From 2bd580d970d184c7dbdf04c0b51151cfabc8aff9 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sun, 28 Jun 2015 01:35:33 +0000
Subject: [PATCH] Temporarily commented out timf2 in wspr_downsample.f90.

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

diff --git a/lib/wspr_downsample.f90 b/lib/wspr_downsample.f90
index c2691866f..ab4a84024 100644
--- a/lib/wspr_downsample.f90
+++ b/lib/wspr_downsample.f90
@@ -60,14 +60,15 @@ subroutine wspr_downsample(id2,k)
   fac=2.0/NFFT1
   nblks=(k-k1)/kstep1
   gain=1.0
+  nb=0
   do nblk=1,nblks
      do i=1,NFFT1
         x0(i)=gain*id2(k1+i)
      enddo
-     call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1,   &
-          slimit,lstrong,px,nzap)
+!     call timf2(x0,k,NFFT1,nwindow,nb,peaklimit,x1,   &
+!          slimit,lstrong,px,nzap)
 ! Mix at nbfo Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex.
-     call mixlpf(x1,nbfo,c0(k8+1))
+     call mixlpf(x0,nbfo,c0(k8+1))
      k1=k1+kstep1
      k8=k8+kstep1/8
   enddo