115 REAL FUNCTION slange( NORM, M, N, A, LDA, WORK )
127 REAL a( lda, * ), work( * )
134 parameter( one = 1.0e+0, zero = 0.0e+0 )
138 REAL scale, sum,
value, temp
148 INTRINSIC abs, min, sqrt
152 IF( min( m, n ).EQ.0 )
THEN
154 ELSE IF(
lsame( norm,
'M' ) )
THEN
161 temp = abs( a( i,
j ) )
165 ELSE IF( (
lsame( norm,
'O' ) ) .OR. ( norm.EQ.
'1' ) )
THEN
173 sum = sum + abs( a( i,
j ) )
177 ELSE IF(
lsame( norm,
'I' ) )
THEN
186 work( i ) = work( i ) + abs( a( i,
j ) )
194 ELSE IF( (
lsame( norm,
'F' ) ) .OR. (
lsame( norm,
'E' ) ) )
THEN
201 CALL
slassq( m, a( 1,
j ), 1, scale, sum )
203 value = scale*sqrt( sum )