LAPACK 3.12.0
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+(N1)*INDA+(N2)*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.