diff --git a/lib/ftnquit.f90 b/lib/ftnquit.f90 deleted file mode 100644 index f209d1b4b..000000000 --- a/lib/ftnquit.f90 +++ /dev/null @@ -1,9 +0,0 @@ -subroutine ftnquit - -! Destroy the FFTW plans - call four2a(a,-1,1,1,1) - call filbig(id,-1,f0,newdat,nfsample,c4a,c4b,n4) - stop - - return -end subroutine ftnquit diff --git a/lib/redsync.f90 b/lib/redsync.f90 index ddf71d06d..fe36bde0f 100644 --- a/lib/redsync.f90 +++ b/lib/redsync.f90 @@ -28,6 +28,12 @@ subroutine redsync(ss,ntrperiod,ihsym,iz,red) call pctile(red,iz,50,xmed) if(xmed.le.0.0) xmed=1.0 red=red/xmed + smax=0. + do i=1,iz + smax=max(smax,red(i)) + enddo + h=50. + if(smax.gt.h) red=red*(h/smax) return end subroutine redsync diff --git a/lib/sync9.f90 b/lib/sync9.f90 index 6b174ec12..502a3aa54 100644 --- a/lib/sync9.f90 +++ b/lib/sync9.f90 @@ -27,7 +27,6 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest) sum=0. do j=1,16 k=ii2(j) + lag -! if(k.ge.1) sum=sum + ss(k,i) if(k.ge.1) sum=sum + ss(k,i) - 0.5*(ss(k+2,i)+ss(k+4,i)) enddo if(sum.gt.smax) then diff --git a/mainwindow.cpp b/mainwindow.cpp index c4ba0ba8b..885a272cd 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//------------------------------------------------------------- MainWindow +//-------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h" diff --git a/plotter.cpp b/plotter.cpp index 4f696a75c..b32b42a48 100644 --- a/plotter.cpp +++ b/plotter.cpp @@ -127,7 +127,7 @@ void CPlotter::draw(float swide[], float red[], int i0) //draw() y2=0; if(m_bCurrent) y2 = gain*y + 30; if(m_bCumulative) y2=3*gain*10.0*log10(jt9com_.savg[i]); - if(m_bJT9Sync) y2=0.1*gain*red[i] - 20; + if(m_bJT9Sync) y2=3.0*gain*red[i] - 20; if(strong != strong0 or i==m_w-1) { painter2D.drawPolyline(LineBuf,j); j=0;