ksortinv.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ksortinv (idx, n)

Function/Subroutine Documentation

ksortinv()

subroutine ksortinv	(	integer, dimension(n)	idx,
		integer	n
	)

Definition at line 2 of file ksortinv.f.

Referenced by csortstack(), distribute(), sortbyerg(), and sortbyke().

      implicit none
!        invert sorted idx order
      integer n
      integer idx(n)
      integer i, j

      do i = 1, n/2
         j =idx(i)
         idx(i) = idx(n-i+1)
         idx(n-i+1) = j
      enddo

Here is the caller graph for this function: