WSJT-X/indexx.f
Joe Taylor 591f0853c3 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 16:06:57 +00:00

20 lines
347 B
Fortran

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