143 SUBROUTINE claqge( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX,
154 REAL amax, colcnd, rowcnd
165 parameter( one = 1.0e+0, thresh = 0.1e+0 )
169 REAL cj, large, small
179 IF( m.LE.0 .OR. n.LE.0 )
THEN
186 small =
slamch(
'Safe minimum' ) /
slamch(
'Precision' )
189 IF( rowcnd.GE.thresh .AND. amax.GE.small .AND. amax.LE.large )
194 IF( colcnd.GE.thresh )
THEN
206 a( i, j ) = cj*a( i, j )
211 ELSE IF( colcnd.GE.thresh )
THEN
217 a( i, j ) = r( i )*a( i, j )
228 a( i, j ) = cj*r( i )*a( i, j )