LAPACK
3.6.1
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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
clag2z
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:105
SRC
clag2z.f
Generated on Sun Jun 19 2016 20:52:20 for LAPACK by
1.8.10