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