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