w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 05:12:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove "save" statements. They were not needed, and (possibly) led to

Browse Source 
program crashes.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2725 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-11-14 01:19:13 +00:00
parent 0d58ad7b9c
commit f15beebfa0
5 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/peakdf9.f90
View File

@ -3,7 +3,6 @@ subroutine peakdf9(c0,npts8,nsps8,istart,foffset,idfpk)
complex c0(0:npts8-1) complex c0(0:npts8-1)
complex zsum complex zsum
include 'jt9sync.f90' include 'jt9sync.f90'
save
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
df=1500.0/nsps8 df=1500.0/nsps8

5
lib/peakdt9.f90
View File

@ -3,7 +3,6 @@ subroutine peakdt9(c0,npts8,nsps8,istart,foffset,idtpk)
complex c0(0:npts8-1) complex c0(0:npts8-1)
complex zsum complex zsum
include 'jt9sync.f90' include 'jt9sync.f90'
save
twopi=8.0*atan(1.0) twopi=8.0*atan(1.0)
smax=0. smax=0.
@ -22,7 +21,9 @@ subroutine peakdt9(c0,npts8,nsps8,istart,foffset,idtpk)
do i=i1,i1+nsps8-1 do i=i1,i1+nsps8-1
if(i.lt.0 .or. i.gt.npts8-1) cycle if(i.lt.0 .or. i.gt.npts8-1) cycle
phi=phi + dphi 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 enddo
sum=sum + real(zsum)**2 + aimag(zsum)**2 sum=sum + real(zsum)**2 + aimag(zsum)**2
enddo enddo

1
lib/spec9.f90
View File

@ -13,7 +13,6 @@ subroutine spec9(c0,npts8,nsps,fpk0,fpk,xdt,snrdb,i1SoftSymbols)
equivalence (i1,i4) equivalence (i1,i4)
data ig/0,1,3,2,7,6,4,5/ !Gray code removal data ig/0,1,3,2,7,6,4,5/ !Gray code removal
include 'jt9sync.f90' include 'jt9sync.f90'
save
! Fix up the data in c0() ! Fix up the data in c0()
sum=0. sum=0.

3
mainwindow.cpp
View File

@ -17,7 +17,7 @@ float c0[2*1800*1500];
WideGraph* g_pWideGraph = NULL; WideGraph* g_pWideGraph = NULL;
QString rev="$Rev$"; 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"; " by K1JT";
//-------------------------------------------------- MainWindow constructor //-------------------------------------------------- MainWindow constructor
@ -182,7 +182,6 @@ MainWindow::MainWindow(QWidget *parent) :
if(ui->actionCuteSDR->isChecked()) on_actionCuteSDR_triggered(); if(ui->actionCuteSDR->isChecked()) on_actionCuteSDR_triggered();
if(ui->actionAFMHot->isChecked()) on_actionAFMHot_triggered(); if(ui->actionAFMHot->isChecked()) on_actionAFMHot_triggered();
if(ui->actionBlue->isChecked()) on_actionBlue_triggered(); if(ui->actionBlue->isChecked()) on_actionBlue_triggered();
} // End of MainWindow constructor } // End of MainWindow constructor
//--------------------------------------------------- MainWindow destructor //--------------------------------------------------- MainWindow destructor

3
wsjtx.pro
View File

@ -6,7 +6,7 @@
QT += core gui network QT += core gui network
CONFIG += qwt thread CONFIG += qwt thread
CONFIG += console #CONFIG += console
TARGET = wsjtx TARGET = wsjtx
VERSION = 0.2 VERSION = 0.2
@ -57,7 +57,6 @@ LIBS += -lfftw3f /usr/lib/libgfortran.so.3
LIBS += ../wsjtx/lib/libjt9.a LIBS += ../wsjtx/lib/libjt9.a
LIBS += /usr/lib/libqwt-qt4.so LIBS += /usr/lib/libqwt-qt4.so
LIBS += -lportaudio LIBS += -lportaudio
#LIBS +- -lusb
} }
win32 { win32 {