Temporary commit of plotsave-related code. Not finished!

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

lib/plotsave.f90

@@ -8,11 +8,17 @@ subroutine plotsave(splot,ka,nbpp,irow,jz,swide)
   data ncall/0/
   save ncall,spsave
 
+  df=12000.0/16384
   if(irow.lt.0) then
 ! Save a new row of data
      ncall=ncall+1
      k=mod(ncall-1,NYMAX) + 1
      spsave(1:NSMAX,k)=splot
+     rewind 61
+     do i=1,NSMAX
+        write(61,3061) i,splot(i),ncall
+3061    format(i8,f12.3,i8)
+     enddo
   else
 ! Process and return the saved "irow" as swide(), for a waterfall replot.
      k=mod(NYMAX+ncall-1-irow,NYMAX) + 1

lib/symspec.f90

@@ -86,7 +86,7 @@ subroutine symspec(shared_data,k,ntrperiod,nsps,ingain,nminw,pxdb,s,   &
   enddo
   ihsym=ihsym+1
 
-  xc(0:nfft3-1)=w3(1:nfft3)*xc(0:nfft3-1)    !Apply window w3
+!  xc(0:nfft3-1)=w3(1:nfft3)*xc(0:nfft3-1)    !Apply window w3
   call four2a(xc,nfft3,1,-1,0)               !Real-to-complex FFT
 
   df3=12000.0/nfft3                   !JT9-1: 0.732 Hz = 0.42 * tone spacing