1ZHPTRI(1) LAPACK routine (version 3.1) ZHPTRI(1)
2
3
4
6 ZHPTRI - the inverse of a complex Hermitian indefinite matrix A in
7 packed storage using the factorization A = U*D*U**H or A = L*D*L**H
8 computed by ZHPTRF
9
11 SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO )
12
13 CHARACTER UPLO
14
15 INTEGER INFO, N
16
17 INTEGER IPIV( * )
18
19 COMPLEX*16 AP( * ), WORK( * )
20
22 ZHPTRI computes the inverse of a complex Hermitian indefinite matrix A
23 in packed storage using the factorization A = U*D*U**H or A = L*D*L**H
24 computed by ZHPTRF.
25
26
28 UPLO (input) CHARACTER*1
29 Specifies whether the details of the factorization are stored
30 as an upper or lower triangular matrix. = 'U': Upper trianguā
31 lar, form is A = U*D*U**H;
32 = 'L': Lower triangular, form is A = L*D*L**H.
33
34 N (input) INTEGER
35 The order of the matrix A. N >= 0.
36
37 AP (input/output) COMPLEX*16 array, dimension (N*(N+1)/2)
38 On entry, the block diagonal matrix D and the multipliers used
39 to obtain the factor U or L as computed by ZHPTRF, stored as a
40 packed triangular matrix.
41
42 On exit, if INFO = 0, the (Hermitian) inverse of the original
43 matrix, stored as a packed triangular matrix. The j-th column
44 of inv(A) is stored in the array AP as follows: if UPLO = 'U',
45 AP(i + (j-1)*j/2) = inv(A)(i,j) for 1<=i<=j; if UPLO = 'L',
46 AP(i + (j-1)*(2n-j)/2) = inv(A)(i,j) for j<=i<=n.
47
48 IPIV (input) INTEGER array, dimension (N)
49 Details of the interchanges and the block structure of D as
50 determined by ZHPTRF.
51
52 WORK (workspace) COMPLEX*16 array, dimension (N)
53
54 INFO (output) INTEGER
55 = 0: successful exit
56 < 0: if INFO = -i, the i-th argument had an illegal value
57 > 0: if INFO = i, D(i,i) = 0; the matrix is singular and its
58 inverse could not be computed.
59
60
61
62 LAPACK routine (version 3.1) November 2006 ZHPTRI(1)