19 SUBROUTINE indexxi(n,nd,arr,indx)
29 INTEGER n,indx(nd),M,NSTACK
32 parameter(m=7,nstack=50)
33 INTEGER i,indxt,ir,itemp,j,jstack,k,l,istack(nstack)
48 if(arr(indx(i)).le.a)
goto 2
63 if(arr(indx(l+1)).gt.arr(indx(ir)))
then 68 if(arr(indx(l)).gt.arr(indx(ir)))
then 73 if(arr(indx(l+1)).gt.arr(indx(l)))
then 84 if(arr(indx(i)).lt.a)
goto 3
87 if(arr(indx(j)).gt.a)
goto 4
96 if(jstack.gt.nstack)pause
'NSTACK too small in indexx' subroutine indexxi(n, nd, arr, indx)
Subroutine to perform ?? indexing on integer data.