01:       REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB,
02:      $                            LDAFB )
03: *
04: *     -- LAPACK routine (version 3.2)                                 --
05: *     -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and --
06: *     -- Jason Riedy of Univ. of California Berkeley.                 --
07: *     -- November 2008                                                --
08: *
09: *     -- LAPACK is a software package provided by Univ. of Tennessee, --
10: *     -- Univ. of California Berkeley and NAG Ltd.                    --
11: *
12:       IMPLICIT NONE
13: *     ..
14: *     .. Scalar Arguments ..
15:       INTEGER            N, KL, KU, NCOLS, LDAB, LDAFB
16: *     ..
17: *     .. Array Arguments ..
18:       REAL               AB( LDAB, * ), AFB( LDAFB, * )
19: *     ..
20: *     .. Local Scalars ..
21:       INTEGER            I, J, KD
22:       REAL               AMAX, UMAX, RPVGRW
23: *     ..
24: *     .. Intrinsic Functions ..
25:       INTRINSIC          ABS, MAX, MIN
26: *     ..
27: *     .. Executable Statements ..
28: *
29:       RPVGRW = 1.0
30: *
31:       KD = KU + 1
32:       DO J = 1, NCOLS
33:          AMAX = 0.0
34:          UMAX = 0.0
35:          DO I = MAX( J-KU, 1 ), MIN( J+KL, N )
36:             AMAX = MAX( ABS( AB( KD+I-J, J)), AMAX )
37:          END DO
38:          DO I = MAX( J-KU, 1 ), J
39:             UMAX = MAX( ABS( AFB( KD+I-J, J ) ), UMAX )
40:          END DO
41:          IF ( UMAX /= 0.0 ) THEN
42:             RPVGRW = MIN( AMAX / UMAX, RPVGRW )
43:          END IF
44:       END DO
45:       SLA_GBRPVGRW = RPVGRW
46:       END FUNCTION
47: