Remove unnecessary test on ja.

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

lib/symspec.f90

@@ -109,31 +109,29 @@ subroutine symspec(k,ntrperiod,nsps,ingain,nb,nbslider,pxdb,s,red,    &
   if(rms.gt.0.0) pxdb=20.0*log10(rms)
   if(pxdb.gt.60.0) pxdb=60.0
 
-  if(ja.gt.0) then
+  do i=0,nfft3-1                      !Copy data into cx
-     do i=0,nfft3-1                      !Copy data into cx
+     cx(i)=0.
-        cx(i)=0.
+     j=ja+i-(nfft3-1)
-        j=ja+i-(nfft3-1)
+     if(j.ge.1) cx(i)=c0(j)
-        if(j.ge.1) cx(i)=c0(j)
+  enddo
-     enddo
 
-     if(ihsym.lt.184) ihsym=ihsym+1
+  if(ihsym.lt.184) ihsym=ihsym+1
-     cx(0:nfft3-1)=w3(1:nfft3)*cx(0:nfft3-1)  !Apply window w3
+  cx(0:nfft3-1)=w3(1:nfft3)*cx(0:nfft3-1)  !Apply window w3
-     call four2a(cx,nfft3,1,1,1)           !Third forward FFT (X)
+  call four2a(cx,nfft3,1,1,1)           !Third forward FFT (X)
 
-     n=min(184,ihsym)
+  n=min(184,ihsym)
-     df3=1500.0/nfft3
+  df3=1500.0/nfft3
-     i0=nint(-500.0/df3)
+  i0=nint(-500.0/df3)
-     iz=min(NSMAX,nint(1000.0/df3))
+  iz=min(NSMAX,nint(1000.0/df3))
-     fac=(1.0/nfft3)**2
+  fac=(1.0/nfft3)**2
-     do i=1,iz
+  do i=1,iz
-        j=i0+i-1
+     j=i0+i-1
-        if(j.lt.0) j=j+nfft3
+     if(j.lt.0) j=j+nfft3
-        sx=fac*(real(cx(j))**2 + aimag(cx(j))**2)
+     sx=fac*(real(cx(j))**2 + aimag(cx(j))**2)
-        ss(n,i)=sx
+     ss(n,i)=sx
-        ssum(i)=ssum(i) + sx
+     ssum(i)=ssum(i) + sx
-        s(i)=sx
+     s(i)=sx
-     enddo
+  enddo
-  endif
 
 999 continue
 

mainwindow.cpp

@@ -1,4 +1,4 @@
-//---------------------------------------------------------------- MainWindow
+//--------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"