![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b SLAG2D 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download SLAG2D + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slag2d.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slag2d.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slag2d.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) 00022 * 00023 * .. Scalar Arguments .. 00024 * INTEGER INFO, LDA, LDSA, M, N 00025 * .. 00026 * .. Array Arguments .. 00027 * REAL SA( LDSA, * ) 00028 * DOUBLE PRECISION A( LDA, * ) 00029 * .. 00030 * 00031 * 00032 *> \par Purpose: 00033 * ============= 00034 *> 00035 *> \verbatim 00036 *> 00037 *> SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE 00038 *> PRECISION matrix, A. 00039 *> 00040 *> Note that while it is possible to overflow while converting 00041 *> from double to single, it is not possible to overflow when 00042 *> converting from single to double. 00043 *> 00044 *> This is an auxiliary routine so there is no argument checking. 00045 *> \endverbatim 00046 * 00047 * Arguments: 00048 * ========== 00049 * 00050 *> \param[in] M 00051 *> \verbatim 00052 *> M is INTEGER 00053 *> The number of lines of the matrix A. M >= 0. 00054 *> \endverbatim 00055 *> 00056 *> \param[in] N 00057 *> \verbatim 00058 *> N is INTEGER 00059 *> The number of columns of the matrix A. N >= 0. 00060 *> \endverbatim 00061 *> 00062 *> \param[in] SA 00063 *> \verbatim 00064 *> SA is REAL array, dimension (LDSA,N) 00065 *> On entry, the M-by-N coefficient matrix SA. 00066 *> \endverbatim 00067 *> 00068 *> \param[in] LDSA 00069 *> \verbatim 00070 *> LDSA is INTEGER 00071 *> The leading dimension of the array SA. LDSA >= max(1,M). 00072 *> \endverbatim 00073 *> 00074 *> \param[out] A 00075 *> \verbatim 00076 *> A is DOUBLE PRECISION array, dimension (LDA,N) 00077 *> On exit, the M-by-N coefficient matrix A. 00078 *> \endverbatim 00079 *> 00080 *> \param[in] LDA 00081 *> \verbatim 00082 *> LDA is INTEGER 00083 *> The leading dimension of the array A. LDA >= max(1,M). 00084 *> \endverbatim 00085 *> 00086 *> \param[out] INFO 00087 *> \verbatim 00088 *> INFO is INTEGER 00089 *> = 0: successful exit 00090 *> \endverbatim 00091 * 00092 * Authors: 00093 * ======== 00094 * 00095 *> \author Univ. of Tennessee 00096 *> \author Univ. of California Berkeley 00097 *> \author Univ. of Colorado Denver 00098 *> \author NAG Ltd. 00099 * 00100 *> \date November 2011 00101 * 00102 *> \ingroup auxOTHERauxiliary 00103 * 00104 * ===================================================================== 00105 SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) 00106 * 00107 * -- LAPACK auxiliary routine (version 3.4.0) -- 00108 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00109 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00110 * November 2011 00111 * 00112 * .. Scalar Arguments .. 00113 INTEGER INFO, LDA, LDSA, M, N 00114 * .. 00115 * .. Array Arguments .. 00116 REAL SA( LDSA, * ) 00117 DOUBLE PRECISION A( LDA, * ) 00118 * .. 00119 * 00120 * ===================================================================== 00121 * 00122 * .. Local Scalars .. 00123 INTEGER I, J 00124 * .. 00125 * .. Executable Statements .. 00126 * 00127 INFO = 0 00128 DO 20 J = 1, N 00129 DO 10 I = 1, M 00130 A( I, J ) = SA( I, J ) 00131 10 CONTINUE 00132 20 CONTINUE 00133 RETURN 00134 * 00135 * End of SLAG2D 00136 * 00137 END