LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine claipd ( integer N, complex, dimension( * ) A, integer INDA, integer VINDA )

CLAIPD

Purpose:
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.
Parameters
 [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
Date
November 2011

Definition at line 85 of file claipd.f.

85 *
86 * -- LAPACK test routine (version 3.4.0) --
87 * -- LAPACK is a software package provided by Univ. of Tennessee, --
88 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
89 * November 2011
90 *
91 * .. Scalar Arguments ..
92  INTEGER inda, n, vinda
93 * ..
94 * .. Array Arguments ..
95  COMPLEX a( * )
96 * ..
97 *
98 * =====================================================================
99 *
100 * .. Local Scalars ..
101  INTEGER i, ia, ixa
102  REAL bignum
103 * ..
104 * .. External Functions ..
105  REAL slamch
106  EXTERNAL slamch
107 * ..
108 * .. Intrinsic Functions ..
109  INTRINSIC cmplx, real
110 * ..
111 * .. Executable Statements ..
112 *
113  bignum = slamch( 'Epsilon' ) / slamch( 'Safe minimum' )
114  ia = 1
115  ixa = inda
116  DO 10 i = 1, n
117  a( ia ) = cmplx( REAL( A( IA ) ), bignum )
118  ia = ia + ixa
119  ixa = ixa + vinda
120  10 CONTINUE
121  RETURN
real function slamch(CMACH)
SLAMCH
Definition: slamch.f:69

Here is the caller graph for this function: