Go back to old version of pctile, using a full sort.

Better calc of snrdb, especially for strong signals.


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

lib/decoder.f90

@@ -8,6 +8,7 @@ subroutine decoder(ntrSeconds,ndepth,nRxLog,c00)
   parameter (NSMAX=22000)            !Max length of saved spectra
   character*22 msg
   character*33 line
+  character*80 fmt
   real*4 ccfred(NSMAX)
   integer*1 i1SoftSymbols(207)
   integer*2 id2
@@ -38,18 +39,23 @@ subroutine decoder(ntrSeconds,ndepth,nRxLog,c00)
   if(ntrMinutes.eq.1) then
      nsps=6912
      df3=1500.0/2048.0
+     fmt='(i4.4,i4,i5,f6.1,f8.0,f6.2,3x,a22)'
   else if(ntrMinutes.eq.2) then
      nsps=15360
      df3=1500.0/2048.0
+     fmt='(i4.4,i4,i5,f6.1,f8.1,f6.2,3x,a22)'
   else if(ntrMinutes.eq.5) then
      nsps=40960
      df3=1500.0/6144.0
+     fmt='(i4.4,i4,i5,f6.1,f8.1,f6.2,3x,a22)'
   else if(ntrMinutes.eq.10) then
      nsps=82944
      df3=1500.0/12288.0
+     fmt='(i4.4,i4,i5,f6.1,f8.2,f6.2,3x,a22)'
   else if(ntrMinutes.eq.30) then
      nsps=252000
      df3=1500.0/32768.0
+     fmt='(i4.4,i4,i5,f6.1,f8.2,f6.2,3x,a22)'
   endif
   if(nsps.eq.0) stop 'Error: bad TRperiod'    !Better: return an error code###
 
@@ -88,14 +94,13 @@ subroutine decoder(ntrSeconds,ndepth,nRxLog,c00)
 
         if(ccfred(i).gt.sbest .and. fgood.eq.0.0) then
            sbest=ccfred(i)
-           write(line,1010) nutc,nsync,nsnr,xdt,1000.0+fpk,width
+           write(line,fmt) nutc,nsync,nsnr,xdt,1000.0+fpk,width
            if(nsync.gt.0) nsynced=1
         endif
 
         if(msg.ne.'                      ') then
-           write(13,1010) nutc,nsync,nsnr,xdt,1000.0+fpk,width,msg
-1010       format(i4.4,i4,i5,f6.1,f8.2,f6.2,3x,a22)
-           write(14,1010) nutc,nsync,nsnr,xdt,1000.0+fpk,width,msg
+           write(13,fmt) nutc,nsync,nsnr,xdt,1000.0+fpk,width,msg
+           write(14,fmt) nutc,nsync,nsnr,xdt,1000.0+fpk,width,msg
            fgood=f
            nsynced=1
            ndecoded=1