1SLAQSY(1) LAPACK auxiliary routine (version 3.2) SLAQSY(1)
2
3
4
6 SLAQSY - equilibrates a symmetric matrix A using the scaling factors in
7 the vector S
8
10 SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED )
11
12 CHARACTER EQUED, UPLO
13
14 INTEGER LDA, N
15
16 REAL AMAX, SCOND
17
18 REAL A( LDA, * ), S( * )
19
21 SLAQSY equilibrates a symmetric matrix A using the scaling factors in
22 the vector S.
23
25 UPLO (input) CHARACTER*1
26 Specifies whether the upper or lower triangular part of the
27 symmetric matrix A is stored. = 'U': Upper triangular
28 = 'L': Lower triangular
29
30 N (input) INTEGER
31 The order of the matrix A. N >= 0.
32
33 A (input/output) REAL array, dimension (LDA,N)
34 On entry, the symmetric matrix A. If UPLO = 'U', the leading n
35 by n upper triangular part of A contains the upper triangular
36 part of the matrix A, and the strictly lower triangular part of
37 A is not referenced. If UPLO = 'L', the leading n by n lower
38 triangular part of A contains the lower triangular part of the
39 matrix A, and the strictly upper triangular part of A is not
40 referenced. On exit, if EQUED = 'Y', the equilibrated matrix:
41 diag(S) * A * diag(S).
42
43 LDA (input) INTEGER
44 The leading dimension of the array A. LDA >= max(N,1).
45
46 S (input) REAL array, dimension (N)
47 The scale factors for A.
48
49 SCOND (input) REAL
50 Ratio of the smallest S(i) to the largest S(i).
51
52 AMAX (input) REAL
53 Absolute value of largest matrix entry.
54
55 EQUED (output) CHARACTER*1
56 Specifies whether or not equilibration was done. = 'N': No
57 equilibration.
58 = 'Y': Equilibration was done, i.e., A has been replaced by
59 diag(S) * A * diag(S).
60
62 THRESH is a threshold value used to decide if scaling should be done
63 based on the ratio of the scaling factors. If SCOND < THRESH, scaling
64 is done. LARGE and SMALL are threshold values used to decide if scal‐
65 ing should be done based on the absolute size of the largest matrix
66 element. If AMAX > LARGE or AMAX < SMALL, scaling is done.
67
68
69
70 LAPACK auxiliary routine (versionNo3v.e2m)ber 2008 SLAQSY(1)