1ZLAUU2(1) LAPACK auxiliary routine (version 3.1) ZLAUU2(1)
2
3
4
6 ZLAUU2 - the product U * U' or L' * L, where the triangular factor U or
7 L is stored in the upper or lower triangular part of the array A
8
10 SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO )
11
12 CHARACTER UPLO
13
14 INTEGER INFO, LDA, N
15
16 COMPLEX*16 A( LDA, * )
17
19 ZLAUU2 computes the product U * U' or L' * L, where the triangular fac‐
20 tor U or L is stored in the upper or lower triangular part of the array
21 A.
22
23 If UPLO = 'U' or 'u' then the upper triangle of the result is stored,
24 overwriting the factor U in A.
25 If UPLO = 'L' or 'l' then the lower triangle of the result is stored,
26 overwriting the factor L in A.
27
28 This is the unblocked form of the algorithm, calling Level 2 BLAS.
29
30
32 UPLO (input) CHARACTER*1
33 Specifies whether the triangular factor stored in the array A
34 is upper or lower triangular:
35 = 'U': Upper triangular
36 = 'L': Lower triangular
37
38 N (input) INTEGER
39 The order of the triangular factor U or L. N >= 0.
40
41 A (input/output) COMPLEX*16 array, dimension (LDA,N)
42 On entry, the triangular factor U or L. On exit, if UPLO =
43 'U', the upper triangle of A is overwritten with the upper tri‐
44 angle of the product U * U'; if UPLO = 'L', the lower triangle
45 of A is overwritten with the lower triangle of the product L' *
46 L.
47
48 LDA (input) INTEGER
49 The leading dimension of the array A. LDA >= max(1,N).
50
51 INFO (output) INTEGER
52 = 0: successful exit
53 < 0: if INFO = -k, the k-th argument had an illegal value
54
55
56
57 LAPACK auxiliary routine (versionNo3v.e1m)ber 2006 ZLAUU2(1)