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