135 SUBROUTINE claqhe( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED )
143 CHARACTER equed, uplo
156 parameter( one = 1.0e+0, thresh = 0.1e+0 )
160 REAL cj, large, small
181 small =
slamch(
'Safe minimum' ) /
slamch(
'Precision' )
184 IF( scond.GE.thresh .AND. amax.GE.small .AND. amax.LE.large )
THEN
193 IF(
lsame( uplo,
'U' ) )
THEN
200 a( i,
j ) = cj*s( i )*a( i,
j )
202 a(
j,
j ) = cj*cj*
REAL( A( J, J ) )
210 a(
j,
j ) = cj*cj*
REAL( A( J, J ) )
212 a( i,
j ) = cj*s( i )*a( i,
j )
LOGICAL function lsame(CA, CB)
LSAME
REAL function slamch(CMACH)
SLAMCH
subroutine claqhe(UPLO, N, A, LDA, S, SCOND, AMAX, EQUED)
CLAQHE scales a Hermitian matrix.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j