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
First good compile with map65a running inside map65. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 2007-01-11 16:25:52 -05:00			`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`
No results found.