WSJT-X/lib/trimlist.f

      subroutine trimlist(sig,km,ftol,indx,nsiz,nz)

      parameter (MAXMSG=1000)             !Size of decoded message list
      real sig(MAXMSG,30)
      integer indx(MAXMSG),nsiz(MAXMSG)

C     1      2     3    4    5    6     7     8
C   nfile  nutc  freq  snr  dt  ipol  flip  sync

      call indexx(km,sig(1,3),indx)            !Sort list by frequency

      n=1
      i0=1
      do i=2,km         
         j0=indx(i-1)
         j=indx(i)
         if(sig(j,3)-sig(j0,3).gt.ftol) then
            nsiz(n)=i-i0
            i0=i
            n=n+1
         endif
      enddo
      nz=n
      nsiz(nz)=km+1-i0
      nsiz(nz+1)=-1

      return
      end
Set properties for native eol style and the "Rev" keyword. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2464 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2012-05-22 17:09:48 +00:00			`subroutine trimlist(sig,km,ftol,indx,nsiz,nz)`

			`parameter (MAXMSG=1000) !Size of decoded message list`
			`real sig(MAXMSG,30)`
			`integer indx(MAXMSG),nsiz(MAXMSG)`

			`C 1 2 3 4 5 6 7 8`
			`C nfile nutc freq snr dt ipol flip sync`

			`call indexx(km,sig(1,3),indx) !Sort list by frequency`

			`n=1`
			`i0=1`
			`do i=2,km`
			`j0=indx(i-1)`
			`j=indx(i)`
			`if(sig(j,3)-sig(j0,3).gt.ftol) then`
			`nsiz(n)=i-i0`
			`i0=i`
			`n=n+1`
			`endif`
			`enddo`
			`nz=n`
			`nsiz(nz)=km+1-i0`
			`nsiz(nz+1)=-1`

			`return`
			`end`