107 SUBROUTINE claset( UPLO, M, N, ALPHA, BETA, A, LDA )
137 IF(
lsame( uplo,
'U' ) )
THEN
143 DO 10 i = 1, min(
j-1, m )
147 DO 30 i = 1, min( n, m )
151 ELSE IF(
lsame( uplo,
'L' ) )
THEN
156 DO 50
j = 1, min( m, n )
161 DO 60 i = 1, min( n, m )
175 DO 90 i = 1, min( m, n )
subroutine claset(UPLO, M, N, ALPHA, BETA, A, LDA)
CLASET 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