From c2e0d2d4c9ce815fbef1b8ce08431e9ae9d44189 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 8 May 2013 19:08:05 +0000 Subject: [PATCH] Another possible window function (presently commented out). git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3264 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/symspec.f90 | 8 ++------ mainwindow.cpp | 2 +- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/lib/symspec.f90 b/lib/symspec.f90 index b9879a8b6..370fff9ad 100644 --- a/lib/symspec.f90 +++ b/lib/symspec.f90 @@ -56,8 +56,8 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, & do i=1,nfft3 xx=float(i-1)/(nfft3-1) w3(i)=0.40897 -0.5*cos(2.0*pi*xx) + 0.09103*cos(4.0*pi*xx) -! write(67,3101) i,xx,w3(i) -!3101 format(i8,2f12.6) +! w3(i)=0.355768 - 0.487306*cos(2.0*pi*xx) + 0.144232*cos(4.0*pi*xx) & +! - 0.012604*cos(6.0*pi*xx) enddo else do i=1,nfft3 @@ -154,9 +154,5 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, & savg(1:iz)=fac1*ssum(1:iz) call redsync(ss,ntrperiod,ihsym,iz,red) -! write(67,3101) nfft3,jstep,ja -!3101 format(3i10) -! call flush(67) - return end subroutine symspec diff --git a/mainwindow.cpp b/mainwindow.cpp index ba058c07d..b907f83d7 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//---------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"