1 DOUBLE PRECISION FUNCTION dlange( NORM, M, N, A, LDA, WORK )
13 DOUBLE PRECISION a( lda, * ), work( * )
69 DOUBLE PRECISION one, zero
70 parameter( one = 1.0d+0, zero = 0.0d+0 )
74 DOUBLE PRECISION scale, sum, value
84 INTRINSIC abs, max, min, sqrt
88 IF( min( m, n ).EQ.0 )
THEN
90 ELSE IF(
lsame( norm,
'M' ) )
THEN
97 VALUE = max(
VALUE, abs( a( i, j ) ) )
100 ELSE IF( (
lsame( norm,
'O' ) ) .OR. ( norm.EQ.
'1' ) )
THEN
108 sum = sum + abs( a( i, j ) )
110 VALUE = max(
VALUE, sum )
112 ELSE IF(
lsame( norm,
'I' ) )
THEN
121 work( i ) = work( i ) + abs( a( i, j ) )
126 VALUE = max(
VALUE, work( i ) )
128 ELSE IF( (
lsame( norm,
'F' ) ) .OR. (
lsame( norm,
'E' ) ) )
THEN
137 VALUE =
scale*sqrt( sum )
subroutine scale(xyzl, nl)
double precision function dlange(NORM, M, N, A, LDA, WORK)
subroutine dlassq(N, X, INCX, SCALE, SUMSQ)
logical function lsame(CA, CB)