111 SUBROUTINE dlaset( UPLO, M, N, ALPHA, BETA, A, LDA )
121 DOUBLE PRECISION alpha, beta
124 DOUBLE PRECISION a( lda, * )
141 IF(
lsame( uplo,
'U' ) )
THEN
147 DO 10 i = 1, min(
j-1, m )
152 ELSE IF(
lsame( uplo,
'L' ) )
THEN
157 DO 40
j = 1, min( m, n )
176 DO 70 i = 1, min( m, n )
logical function lsame(CA, CB)
LSAME
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
subroutine dlaset(UPLO, M, N, ALPHA, BETA, A, LDA)
DLASET initializes the off-diagonal elements and the diagonal elements of a matrix to given values...