![]() |
LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
|
subroutine claipd | ( | integer | n, |
complex, dimension( * ) | a, | ||
integer | inda, | ||
integer | vinda ) |
CLAIPD
!> !> CLAIPD sets the imaginary part of the diagonal elements of a complex !> matrix A to a large value. This is used to test LAPACK routines for !> complex Hermitian matrices, which are not supposed to access or use !> the imaginary parts of the diagonals. !>
[in] | N | !> N is INTEGER !> The number of diagonal elements of A. !> |
[in,out] | A | !> A is COMPLEX array, dimension !> (1+(N-1)*INDA+(N-2)*VINDA) !> On entry, the complex (Hermitian) matrix A. !> On exit, the imaginary parts of the diagonal elements are set !> to BIGNUM = EPS / SAFMIN, where EPS is the machine epsilon and !> SAFMIN is the safe minimum. !> |
[in] | INDA | !> INDA is INTEGER !> The increment between A(1) and the next diagonal element of A. !> Typical values are !> = LDA+1: square matrices with leading dimension LDA !> = 2: packed upper triangular matrix, starting at A(1,1) !> = N: packed lower triangular matrix, starting at A(1,1) !> |
[in] | VINDA | !> VINDA is INTEGER !> The change in the diagonal increment between columns of A. !> Typical values are !> = 0: no change, the row and column increments in A are fixed !> = 1: packed upper triangular matrix !> = -1: packed lower triangular matrix !> |
Definition at line 82 of file claipd.f.