116 REAL FUNCTION clange( NORM, M, N, A, LDA, WORK )
136 parameter( one = 1.0e+0, zero = 0.0e+0 )
140 REAL scale, sum,
value, temp
150 INTRINSIC abs, min, sqrt
154 IF( min( m, n ).EQ.0 )
THEN
156 ELSE IF(
lsame( norm,
'M' ) )
THEN
163 temp = abs( a( i,
j ) )
167 ELSE IF( (
lsame( norm,
'O' ) ) .OR. ( norm.EQ.
'1' ) )
THEN
175 sum = sum + abs( a( i,
j ) )
179 ELSE IF(
lsame( norm,
'I' ) )
THEN
188 work( i ) = work( i ) + abs( a( i,
j ) )
196 ELSE IF( (
lsame( norm,
'F' ) ) .OR. (
lsame( norm,
'E' ) ) )
THEN
203 CALL
classq( m, a( 1,
j ), 1, scale, sum )
205 value = scale*sqrt( sum )
LOGICAL function lsame(CA, CB)
LSAME
input scalars passed by value
LOGICAL function sisnan(SIN)
SISNAN tests input for NaN.
REAL function clange(NORM, M, N, A, LDA, WORK)
CLANGE returns the value of the 1-norm, Frobenius norm, infinity-norm, or the largest absolute value ...
subroutine classq(N, X, INCX, SCALE, SUMSQ)
CLASSQ updates a sum of squares represented in scaled form.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j