rank.f90

来自「visual fortran常用数值算法集—原代码」· F90 代码 · 共 7 行

SUBROUTINE rank(n,indx,irank)
INTEGER n,indx(n),irank(n),j
do j=1,n
  irank(indx(j))=j
end do
END SUBROUTINE rank