LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine clag2z ( integer  M,
integer  N,
complex, dimension( ldsa, * )  SA,
integer  LDSA,
complex*16, dimension( lda, * )  A,
integer  LDA,
integer  INFO 
)

CLAG2Z converts a complex single precision matrix to a complex double precision matrix.

Download CLAG2Z + dependencies [TGZ] [ZIP] [TXT]

Purpose:
 CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.

 Note that while it is possible to overflow while converting
 from double to single, it is not possible to overflow when
 converting from single to double.

 This is an auxiliary routine so there is no argument checking.
Parameters
[in]M
          M is INTEGER
          The number of lines of the matrix A.  M >= 0.
[in]N
          N is INTEGER
          The number of columns of the matrix A.  N >= 0.
[in]SA
          SA is COMPLEX array, dimension (LDSA,N)
          On entry, the M-by-N coefficient matrix SA.
[in]LDSA
          LDSA is INTEGER
          The leading dimension of the array SA.  LDSA >= max(1,M).
[out]A
          A is COMPLEX*16 array, dimension (LDA,N)
          On exit, the M-by-N coefficient matrix A.
[in]LDA
          LDA is INTEGER
          The leading dimension of the array A.  LDA >= max(1,M).
[out]INFO
          INFO is INTEGER
          = 0:  successful exit
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
September 2012

Definition at line 105 of file clag2z.f.

105 *
106 * -- LAPACK auxiliary routine (version 3.4.2) --
107 * -- LAPACK is a software package provided by Univ. of Tennessee, --
108 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
109 * September 2012
110 *
111 * .. Scalar Arguments ..
112  INTEGER info, lda, ldsa, m, n
113 * ..
114 * .. Array Arguments ..
115  COMPLEX sa( ldsa, * )
116  COMPLEX*16 a( lda, * )
117 * ..
118 *
119 * =====================================================================
120 *
121 * .. Local Scalars ..
122  INTEGER i, j
123 * ..
124 * .. Executable Statements ..
125 *
126  info = 0
127  DO 20 j = 1, n
128  DO 10 i = 1, m
129  a( i, j ) = sa( i, j )
130  10 CONTINUE
131  20 CONTINUE
132  RETURN
133 *
134 * End of CLAG2Z
135 *

Here is the caller graph for this function: