138 SUBROUTINE slaqge( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX,
148 REAL AMAX, COLCND, ROWCND
151 REAL A( LDA, * ), C( * ), R( * )
158 parameter( one = 1.0e+0, thresh = 0.1e+0 )
162 REAL CJ, LARGE, SMALL
172 IF( m.LE.0 .OR. n.LE.0 )
THEN
179 small = slamch(
'Safe minimum' ) / slamch(
'Precision' )
182 IF( rowcnd.GE.thresh .AND. amax.GE.small .AND. amax.LE.large )
187 IF( colcnd.GE.thresh )
THEN
199 a( i, j ) = cj*a( i, j )
204 ELSE IF( colcnd.GE.thresh )
THEN
210 a( i, j ) = r( i )*a( i, j )
221 a( i, j ) = cj*r( i )*a( i, j )
subroutine slaqge(m, n, a, lda, r, c, rowcnd, colcnd, amax, equed)
SLAQGE scales a general rectangular matrix, using row and column scaling factors computed by sgeequ.