111 SUBROUTINE slaset( UPLO, M, N, ALPHA, BETA, 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 )
subroutine slaset(UPLO, M, N, ALPHA, BETA, A, LDA)
SLASET initializes the off-diagonal elements and the diagonal elements of a matrix to given values...
logical function lsame(CA, CB)
LSAME
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j