From b2e36b7a91f40105b9eaa469077ede011b8d1ada Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 22 Oct 2012 19:20:57 +0000 Subject: [PATCH] Remove diagnostic writes. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2682 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/spec9.f90 | 17 ----------------- lib/sync9.f90 | 6 ------ mainwindow.cpp | 2 +- 3 files changed, 1 insertion(+), 24 deletions(-) diff --git a/lib/spec9.f90 b/lib/spec9.f90 index 7e0786f99..04f11b97f 100644 --- a/lib/spec9.f90 +++ b/lib/spec9.f90 @@ -3,7 +3,6 @@ subroutine spec9(c0,npts8,nsps,fpk0,fpk,xdt,i1SoftSymbols) parameter (MAXFFT=31500) complex c0(0:npts8-1) complex c1(0:2700000) - complex c2(0:2700000) real ssym(0:7,69) complex c(0:MAXFFT-1) integer*1 i1SoftSymbolsScrambled(207) @@ -30,22 +29,6 @@ subroutine spec9(c0,npts8,nsps,fpk0,fpk,xdt,i1SoftSymbols) c1(i)=fac*cmplx(aimag(c0(i)),real(c0(i)))*cmplx(cos(phi),sin(phi)) enddo -!### - c2(0:npts8-1)=c1(0:npts8-1) - c2(npts8:)=0. - nfft4=256*1024 - df4=1500.0/nfft4 - call four2a(c2,nfft4,1,-1,1) - rewind 71 - do i=0,nfft4/2 - freq=i*df4 - p=1.e-5*(real(c2(i))**2 + aimag(c2(i))**2) - write(71,3001) freq,p -3001 format(2f15.3) - enddo - call flush(71) -!### - nsps8=nsps/8 foffset=fpk0 istart=1520 diff --git a/lib/sync9.f90 b/lib/sync9.f90 index 0d362b54b..f3737e748 100644 --- a/lib/sync9.f90 +++ b/lib/sync9.f90 @@ -58,11 +58,5 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,sync,snr,fpk,ccfred) if(sync.gt.10.0) sync=10.0 fpk=(ipkbest-1)*df3 - do i=1,184 - write(72,3007) i,ss(i,684) -3007 format(i3,f12.3) - enddo - call flush(72) - return end subroutine sync9 diff --git a/mainwindow.cpp b/mainwindow.cpp index 0b13ad986..60b40c2dd 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -1,4 +1,4 @@ -//--------------------------------------------------------------- MainWindow +//-------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h"