WSJT-X/map65/libm65/trimlist.f90

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)

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

  call indexx(sig(1,3),km,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 subroutine trimlist
Final conversions from .f to .f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7476 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-10 16:59:30 +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)`

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

Bring the sort routines up-to-date with WSJT-X. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7497 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-14 16:52:03 +00:00			`call indexx(sig(1,3),km,indx) !Sort list by frequency`
Final conversions from .f to .f90. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@7476 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2017-01-10 16:59:30 +00:00
			`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 subroutine trimlist`