105 SUBROUTINE zlapmr( FORWRD, M, N, X, LDX, K )
118 COMPLEX*16 x( ldx, * )
155 x(
j, jj ) =
x( in, jj )
185 x( i, jj ) =
x(
j, jj )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine zlapmr(FORWRD, M, N, X, LDX, K)
ZLAPMR rearranges rows of a matrix as specified by a permutation vector.