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 )
subroutine slassq(N, X, INCX, SCALE, SUMSQ)
SLASSQ updates a sum of squares represented in scaled form.
LOGICAL function lsame(CA, CB)
LSAME
input scalars passed by value
LOGICAL function sisnan(SIN)
SISNAN tests input for NaN.
REAL function slange(NORM, M, N, A, LDA, WORK)
SLANGE returns the value of the 1-norm, Frobenius norm, infinity-norm, or the largest absolute value ...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j