141 SUBROUTINE zlaqge( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX,
151 DOUBLE PRECISION AMAX, COLCND, ROWCND
154 DOUBLE PRECISION C( * ), R( * )
155 COMPLEX*16 A( LDA, * )
161 DOUBLE PRECISION ONE, THRESH
162 parameter( one = 1.0d+0, thresh = 0.1d+0 )
166 DOUBLE PRECISION CJ, LARGE, SMALL
169 DOUBLE PRECISION DLAMCH
176 IF( m.LE.0 .OR. n.LE.0 )
THEN
183 small = dlamch(
'Safe minimum' ) / dlamch(
'Precision' )
186 IF( rowcnd.GE.thresh .AND. amax.GE.small .AND. amax.LE.large )
191 IF( colcnd.GE.thresh )
THEN
203 a( i, j ) = cj*a( i, j )
208 ELSE IF( colcnd.GE.thresh )
THEN
214 a( i, j ) = r( i )*a( i, j )
225 a( i, j ) = cj*r( i )*a( i, j )
subroutine zlaqge(m, n, a, lda, r, c, rowcnd, colcnd, amax, equed)
ZLAQGE scales a general rectangular matrix, using row and column scaling factors computed by sgeequ.