107 SUBROUTINE zlaset( UPLO, M, N, ALPHA, BETA, A, LDA )
117 COMPLEX*16 alpha, beta
120 COMPLEX*16 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 )
LOGICAL function lsame(CA, CB)
LSAME
subroutine zlaset(UPLO, M, N, ALPHA, BETA, A, LDA)
ZLASET initializes the off-diagonal elements and the diagonal elements of a matrix to given values...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j