105 SUBROUTINE dlapmr( FORWRD, M, N, X, LDX, K )
118 DOUBLE PRECISION X( ldx, * )
125 DOUBLE PRECISION TEMP
155 x( j, jj ) = x( in, jj )
185 x( i, jj ) = x( j, jj )
subroutine dlapmr(FORWRD, M, N, X, LDX, K)
DLAPMR rearranges rows of a matrix as specified by a permutation vector.