103 INTEGER n, ncols, lda, ldaf
106 REAL a( lda, * ), af( ldaf, * )
113 REAL amax, umax, rpvgrw
116 INTRINSIC abs, max, min
126 amax = max( abs( a( i, j ) ), amax )
129 umax = max( abs( af( i, j ) ), umax )
131 IF ( umax /= 0.0 )
THEN
132 rpvgrw = min( amax / umax, rpvgrw )
real function sla_gerpvgrw(N, NCOLS, A, LDA, AF, LDAF)
SLA_GERPVGRW