SUBROUTINE RANK(N,INDX,IRANK)
      DIMENSION INDX(N),IRANK(N)
      DO 11 J=1,N
        IRANK(INDX(J))=J
11    CONTINUE
      RETURN
      END