1: *> \brief \b CLAG2Z
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 November 2011
100: *
101: *> \ingroup complex16OTHERauxiliary
102: *
103: * =====================================================================
104: SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
105: *
106: * -- LAPACK auxiliary routine (version 3.4.0) --
107: * -- LAPACK is a software package provided by Univ. of Tennessee, --
108: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
109: * November 2011
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
CVSweb interface <joel.bertrand@systella.fr>