LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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
9 *> Download CLAG2Z + dependencies
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 *> \date September 2012
100 *
101 *> \ingroup complex16OTHERauxiliary
102 *
103 * =====================================================================
104  SUBROUTINE clag2z( M, N, SA, LDSA, A, LDA, INFO )
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 *
136  END