1 SUBROUTINE dlaset( UPLO, M, N, ALPHA, BETA, A, LDA )
11 DOUBLE PRECISION ALPHA, BETA
14 DOUBLE PRECISION A( LDA, * )
72 IF( lsame( uplo,
'U' ) )
THEN
78 DO 10 i = 1, min( j-1, m )
83 ELSE IF( lsame( uplo,
'L' ) )
THEN
88 DO 40 j = 1, min( m, n )
107 DO 70 i = 1, min( m, n )
subroutine dlaset(UPLO, M, N, ALPHA, BETA, A, LDA)