F_SPERMUTE/F_DPERMUTE/F_CPERMUTE/F_ZPERMUTE

Permute vector

INTEGER*8

INCP, INCX, N

INTEGER

P( * )

REAL*8

X( * )

SUBROUTINE F_DPERMUTE (N, P, INCP, X, INCX)

INTEGER*8

INCP, INCX, N

INTEGER

P( * )

COMPLEX*8

X( * )

SUBROUTINE F_CPERMUTE (N, P, INCP, X, INCX)

INTEGER*8

INCP, INCX, N

INTEGER

P( * )

COMPLEX*16

X( * )

SUBROUTINE F_ZPERMUTE (N, P, INCP, X, INCX)

188HP MLIB User’s Guide