diff --git a/lib/peakdf9.f90 b/lib/peakdf9.f90 index 3db5b8fee..5db762ca0 100644 --- a/lib/peakdf9.f90 +++ b/lib/peakdf9.f90 @@ -3,7 +3,6 @@ subroutine peakdf9(c0,npts8,nsps8,istart,foffset,idfpk) complex c0(0:npts8-1) complex zsum include 'jt9sync.f90' - save twopi=8.0*atan(1.0) df=1500.0/nsps8 diff --git a/lib/peakdt9.f90 b/lib/peakdt9.f90 index 5d18d64f2..a5581f40d 100644 --- a/lib/peakdt9.f90 +++ b/lib/peakdt9.f90 @@ -3,7 +3,6 @@ subroutine peakdt9(c0,npts8,nsps8,istart,foffset,idtpk) complex c0(0:npts8-1) complex zsum include 'jt9sync.f90' - save twopi=8.0*atan(1.0) smax=0. @@ -22,7 +21,9 @@ subroutine peakdt9(c0,npts8,nsps8,istart,foffset,idtpk) do i=i1,i1+nsps8-1 if(i.lt.0 .or. i.gt.npts8-1) cycle phi=phi + dphi - zsum=zsum + c0(i) * cmplx(cos(phi),-sin(phi)) + if(i.ge.0 .and. i.le.npts8-1) then + zsum=zsum + c0(i)*cmplx(cos(phi),-sin(phi)) + endif enddo sum=sum + real(zsum)**2 + aimag(zsum)**2 enddo diff --git a/lib/spec9.f90 b/lib/spec9.f90 index a0a993092..2bc7ed3a3 100644 --- a/lib/spec9.f90 +++ b/lib/spec9.f90 @@ -13,7 +13,6 @@ subroutine spec9(c0,npts8,nsps,fpk0,fpk,xdt,snrdb,i1SoftSymbols) equivalence (i1,i4) data ig/0,1,3,2,7,6,4,5/ !Gray code removal include 'jt9sync.f90' - save ! Fix up the data in c0() sum=0. diff --git a/mainwindow.cpp b/mainwindow.cpp index ddd0f57c0..ee37cc50b 100644 --- a/mainwindow.cpp +++ b/mainwindow.cpp @@ -17,7 +17,7 @@ float c0[2*1800*1500]; WideGraph* g_pWideGraph = NULL; QString rev="$Rev$"; -QString Program_Title_Version=" WSJT-X v0.3, r" + rev.mid(6,4) + +QString Program_Title_Version=" WSJT-X v0.4, r" + rev.mid(6,4) + " by K1JT"; //-------------------------------------------------- MainWindow constructor @@ -182,7 +182,6 @@ MainWindow::MainWindow(QWidget *parent) : if(ui->actionCuteSDR->isChecked()) on_actionCuteSDR_triggered(); if(ui->actionAFMHot->isChecked()) on_actionAFMHot_triggered(); if(ui->actionBlue->isChecked()) on_actionBlue_triggered(); - } // End of MainWindow constructor //--------------------------------------------------- MainWindow destructor diff --git a/wsjtx.pro b/wsjtx.pro index ebfb845b5..a3826a0f0 100644 --- a/wsjtx.pro +++ b/wsjtx.pro @@ -6,7 +6,7 @@ QT += core gui network CONFIG += qwt thread -CONFIG += console +#CONFIG += console TARGET = wsjtx VERSION = 0.2 @@ -57,7 +57,6 @@ LIBS += -lfftw3f /usr/lib/libgfortran.so.3 LIBS += ../wsjtx/lib/libjt9.a LIBS += /usr/lib/libqwt-qt4.so LIBS += -lportaudio -#LIBS +- -lusb } win32 {