110 REAL FUNCTION clanhs( NORM, N, A, LDA, WORK )
130 parameter( one = 1.0e+0, zero = 0.0e+0 )
134 REAL scale, sum,
value
144 INTRINSIC abs, min, sqrt
150 ELSE IF(
lsame( norm,
'M' ) )
THEN
156 DO 10 i = 1, min( n,
j+1 )
157 sum = abs( a( i,
j ) )
161 ELSE IF( (
lsame( norm,
'O' ) ) .OR. ( norm.EQ.
'1' ) )
THEN
168 DO 30 i = 1, min( n,
j+1 )
169 sum = sum + abs( a( i,
j ) )
173 ELSE IF(
lsame( norm,
'I' ) )
THEN
181 DO 60 i = 1, min( n,
j+1 )
182 work( i ) = work( i ) + abs( a( i,
j ) )
190 ELSE IF( (
lsame( norm,
'F' ) ) .OR. (
lsame( norm,
'E' ) ) )
THEN
197 CALL
classq( min( n,
j+1 ), a( 1,
j ), 1, scale, sum )
199 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 clanhs(NORM, N, A, LDA, WORK)
CLANHS 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