rank.for

Numerical Recipes一书中例子的源码所用到的函数集,William H. Press 和 Saul A. Teukolsky 所著

      SUBROUTINE rank(n,indx,irank)
      INTEGER n,indx(n),irank(n)
      INTEGER j
      do 11 j=1,n
        irank(indx(j))=j
11    continue
      return
      END