98 REAL FUNCTION sla_gerpvgrw( N, NCOLS, A, LDA, AF, LDAF )
106 INTEGER N, NCOLS, LDA, LDAF
109 REAL A( lda, * ), AF( ldaf, * )
116 REAL AMAX, UMAX, RPVGRW
119 INTRINSIC abs, max, min
129 amax = max( abs( a( i, j ) ), amax )
132 umax = max( abs( af( i, j ) ), umax )
134 IF ( umax /= 0.0 )
THEN
135 rpvgrw = min( amax / umax, rpvgrw )
138 sla_gerpvgrw = rpvgrw