105 REAL FUNCTION sla_porpvgrw( UPLO, NCOLS, A, LDA, AF, LDAF, WORK )
114 INTEGER NCOLS, LDA, LDAF
117 REAL A( lda, * ), AF( ldaf, * ), WORK( * )
124 REAL AMAX, UMAX, RPVGRW
128 INTRINSIC abs, max, min
136 upper = lsame(
'Upper', uplo )
153 $ max( abs( a( i, j ) ), work( ncols+j ) )
160 $ max( abs( a( i, j ) ), work( ncols+j ) )
168 IF ( lsame(
'Upper', uplo ) )
THEN
171 work( j ) = max( abs( af( i, j ) ), work( j ) )
177 work( j ) = max( abs( af( i, j ) ), work( j ) )
189 IF ( lsame(
'Upper', uplo ) )
THEN
192 amax = work( ncols+i )
193 IF ( umax /= 0.0 )
THEN
194 rpvgrw = min( amax / umax, rpvgrw )
200 amax = work( ncols+i )
201 IF ( umax /= 0.0 )
THEN
202 rpvgrw = min( amax / umax, rpvgrw )
real function sla_porpvgrw(UPLO, NCOLS, A, LDA, AF, LDAF, WORK)
SLA_PORPVGRW computes the reciprocal pivot growth factor norm(A)/norm(U) for a symmetric or Hermitian...
logical function lsame(CA, CB)
LSAME