105 SUBROUTINE dlapmt( FORWRD, M, N, X, LDX, K )
118 DOUBLE PRECISION x( ldx, * )
125 DOUBLE PRECISION temp
155 x( ii,
j ) =
x( ii, in )
185 x( ii, i ) =
x( ii,
j )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine dlapmt(FORWRD, M, N, X, LDX, K)
DLAPMT performs a forward or backward permutation of the columns of a matrix.