Annotation of rpl/lapack/lapack/clag2z.f, revision 1.9
1.9 ! bertrand 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: * =====================================================================
1.1 bertrand 104: SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO )
105: *
1.9 ! bertrand 106: * -- LAPACK auxiliary routine (version 3.4.0) --
1.1 bertrand 107: * -- LAPACK is a software package provided by Univ. of Tennessee, --
108: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.9 ! bertrand 109: * November 2011
1.1 bertrand 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: *
1.8 bertrand 119: * =====================================================================
1.1 bertrand 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>