WSJT-X/indexx.f

      subroutine indexx(n,arr,indx)

      parameter (NMAX=3000)
      integer indx(n)
      real arr(n)
      real brr(NMAX)
      if(n.gt.NMAX) then
         print*,'n=',n,' too big in indexx.'
         stop
      endif
      do i=1,n
         brr(i)=arr(i)
         indx(i)=i
      enddo
      call ssort(brr,indx,n,2)

      return
      end
Added indexx.f git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@35 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-29 15:31:33 -05:00			`subroutine indexx(n,arr,indx)`

More tweaking of fonts; fix NMAX in indexx.f; increase latency in jtaudio.c. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@50 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2006-01-06 11:06:57 -05:00			`parameter (NMAX=3000)`
Added indexx.f git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@35 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2005-12-29 15:31:33 -05:00			`integer indx(n)`
			`real arr(n)`
			`real brr(NMAX)`
			`if(n.gt.NMAX) then`
			`print*,'n=',n,' too big in indexx.'`
			`stop`
			`endif`
			`do i=1,n`
			`brr(i)=arr(i)`
			`indx(i)=i`
			`enddo`
			`call ssort(brr,indx,n,2)`

			`return`
			`end`
No results found.