109 INTEGER n, ncols, lda, ldaf
112 DOUBLE PRECISION a( lda, * ), af( ldaf, * )
119 DOUBLE PRECISION amax, umax, rpvgrw
122 INTRINSIC abs, max, min
132 amax = max( abs( a( i,
j ) ), amax )
135 umax = max( abs( af( i,
j ) ), umax )
137 IF ( umax /= 0.0d+0 )
THEN
138 rpvgrw = min( amax / umax, rpvgrw )
DOUBLE PRECISION function dla_gerpvgrw(N, NCOLS, A, LDA, AF, LDAF)
DLA_GERPVGRW
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j