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

program crashes.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2725 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

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

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

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.

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

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 {