LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches
clag2z.f
Go to the documentation of this file.
1*> \brief \b CLAG2Z converts a complex single precision matrix to a complex double precision matrix.
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8*> \htmlonly
10*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clag2z.f">
11*> [TGZ]</a>
12*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clag2z.f">
13*> [ZIP]</a>
14*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clag2z.f">
15*> [TXT]</a>
16*> \endhtmlonly
17*
18* Definition:
19* ===========
20*
21* SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
22*
23* .. Scalar Arguments ..
24* INTEGER INFO, LDA, LDSA, M, N
25* ..
26* .. Array Arguments ..
27* COMPLEX SA( LDSA, * )
28* COMPLEX*16 A( LDA, * )
29* ..
30*
31*
32*> \par Purpose:
33* =============
34*>
35*> \verbatim
36*>
37*> CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
38*>
39*> Note that while it is possible to overflow while converting
40*> from double to single, it is not possible to overflow when
41*> converting from single to double.
42*>
43*> This is an auxiliary routine so there is no argument checking.
44*> \endverbatim
45*
46* Arguments:
47* ==========
48*
49*> \param[in] M
50*> \verbatim
51*> M is INTEGER
52*> The number of lines of the matrix A. M >= 0.
53*> \endverbatim
54*>
55*> \param[in] N
56*> \verbatim
57*> N is INTEGER
58*> The number of columns of the matrix A. N >= 0.
59*> \endverbatim
60*>
61*> \param[in] SA
62*> \verbatim
63*> SA is COMPLEX array, dimension (LDSA,N)
64*> On entry, the M-by-N coefficient matrix SA.
65*> \endverbatim
66*>
67*> \param[in] LDSA
68*> \verbatim
69*> LDSA is INTEGER
70*> The leading dimension of the array SA. LDSA >= max(1,M).
71*> \endverbatim
72*>
73*> \param[out] A
74*> \verbatim
75*> A is COMPLEX*16 array, dimension (LDA,N)
76*> On exit, the M-by-N coefficient matrix A.
77*> \endverbatim
78*>
79*> \param[in] LDA
80*> \verbatim
81*> LDA is INTEGER
82*> The leading dimension of the array A. LDA >= max(1,M).
83*> \endverbatim
84*>
85*> \param[out] INFO
86*> \verbatim
87*> INFO is INTEGER
88*> = 0: successful exit
89*> \endverbatim
90*
91* Authors:
92* ========
93*
94*> \author Univ. of Tennessee
95*> \author Univ. of California Berkeley
96*> \author Univ. of Colorado Denver
97*> \author NAG Ltd.
98*
99*> \ingroup _lag2_
100*
101* =====================================================================
102 SUBROUTINE clag2z( M, N, SA, LDSA, A, LDA, INFO )
103*
104* -- LAPACK auxiliary routine --
105* -- LAPACK is a software package provided by Univ. of Tennessee, --
106* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
107*
108* .. Scalar Arguments ..
109 INTEGER INFO, LDA, LDSA, M, N
110* ..
111* .. Array Arguments ..
112 COMPLEX SA( LDSA, * )
113 COMPLEX*16 A( LDA, * )
114* ..
115*
116* =====================================================================
117*
118* .. Local Scalars ..
119 INTEGER I, J
120* ..
121* .. Executable Statements ..
122*
123 info = 0
124 DO 20 j = 1, n
125 DO 10 i = 1, m
126 a( i, j ) = sa( i, j )
127 10 CONTINUE
128 20 CONTINUE
129 RETURN
130*
131* End of CLAG2Z
132*
133 END
subroutine clag2z(m, n, sa, ldsa, a, lda, info)
CLAG2Z converts a complex single precision matrix to a complex double precision matrix.
Definition clag2z.f:103