Omitted a sqrt() by mistake.

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

lib/downsam9.f90

@@ -28,13 +28,8 @@ subroutine downsam9(c0,npts8,nsps8,nspsd,fpk,c2,nz2)
         j=j+1
         s(i)=s(i)+real(c1(j))**2 + aimag(c1(j))**2
      enddo
-!     write(50,3000) i,(j-nadd/2)*df1,s(i)
-!3000 format(i5,2f12.3)
   enddo
   call pctile(s,1000,40,avenoise)
-!  write(71,*) avenoise,nadd
-!  call flush(50)
-!  call flush(71)
   
   ndown=nsps8/16                           !Downsample factor
   nfft2=nfft1/ndown                        !Backward FFT length
@@ -42,7 +37,7 @@ subroutine downsam9(c0,npts8,nsps8,nspsd,fpk,c2,nz2)
    
   fshift=fpk-1500.0
   i0=nh1 + fshift/df1
-  fac=1.0/avenoise
+  fac=sqrt(1.0/avenoise)
   do i=0,nfft2-1
      j=i0+i
      if(i.gt.nh2) j=j-nfft2

lib/symspec2.f90

@@ -49,13 +49,8 @@ subroutine symspec2(c5,nz3,nsps8,nspsd,fsample,snrdb,i1SoftSymbolsScrambled)
 
   sig=sig/69.
   df8=1500.0/nsps8
-!  t=max(1.0,sig/xmed - 1.0)
-!  snrdb=db(t) - db(2500.0/df8) - 4.5
   t=max(1.0,sig - 1.0)
-  snrdb=db(t) - 60.3
+  snrdb=db(t) - 61.3
-!  write(71,3001) ave,xmed,sig,db(sig),t,snrdb
-!3001 format(6f12.2)
-!  call flush(71)
      
   m0=3
   k=0

mainwindow.cpp

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