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 )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine dlapmr(FORWRD, M, N, X, LDX, K)
DLAPMR rearranges rows of a matrix as specified by a permutation vector.