101 INTEGER n, ncols, lda, ldaf
104 REAL a( lda, * ), af( ldaf, * )
111 REAL amax, umax, rpvgrw
114 INTRINSIC abs, max, min
124 amax = max( abs( a( i, j ) ), amax )
127 umax = max( abs( af( i, j ) ), umax )
129 IF ( umax /= 0.0 )
THEN
130 rpvgrw = min( amax / umax, rpvgrw )