HP MLIB User's Guide Vol. 1 7th Ed.

188 HP MLIB User’s Guide
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)