diff --git a/lib/symspec.f90 b/lib/symspec.f90 index fd2bbfed1..370fff9ad 100644 --- a/lib/symspec.f90 +++ b/lib/symspec.f90 @@ -86,8 +86,8 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, & peaklimit=sigmas*max(10.0,rms) px=0. -! nwindow=2 - nwindow=0 !### No windowing ### + nwindow=2 +! nwindow=0 !### No windowing ### kstep1=NFFT1 if(nwindow.ne.0) kstep1=NFFT1/2 fac=2.0/NFFT1 @@ -97,11 +97,11 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, & 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 1500 Hz, lowpass at +/-750 Hz, and downsample to 1500 Hz complex. - x2(106:105+kstep1)=x0(1:kstep1) + x2(106:105+kstep1)=x1(1:kstep1) call fil3(x2,kstep1+105,c0(k8+1),n2) x2(1:105)=x1(kstep1-104:kstep1) !Save 105 trailing samples k1=k1+kstep1 @@ -152,7 +152,6 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red, & call pctile(ssum,iz,npct,xmed1) fac1=fac00/max(xmed1,0.006*ihsym) savg(1:iz)=fac1*ssum(1:iz) - savg(iz+1:iz+20)=savg(iz) call redsync(ss,ntrperiod,ihsym,iz,red) return diff --git a/mainwindow.cpp b/mainwindow.cpp index d27451bfb..0a488a00e 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//------------------------------------------------------------- MainWindow +//------------------------------------------------------------ MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"