clag2z()

subroutine clag2z	(	integer	m,
		integer	n,
		complex, dimension( ldsa, * )	sa,
		integer	ldsa,
		complex*16, dimension( lda, * )	a,
		integer	lda,
		integer	info
	)

CLAG2Z converts a complex single precision matrix to a complex double precision matrix.

Download CLAG2Z + dependencies [TGZ] [ZIP] [TXT]

Purpose:

 CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.

 Note that while it is possible to overflow while converting
 from double to single, it is not possible to overflow when
 converting from single to double.

 This is an auxiliary routine so there is no argument checking.

Parameters

[in]	M	M is INTEGER The number of lines of the matrix A. M >= 0.
[in]	N	N is INTEGER The number of columns of the matrix A. N >= 0.
[in]	SA	SA is COMPLEX array, dimension (LDSA,N) On entry, the M-by-N coefficient matrix SA.
[in]	LDSA	LDSA is INTEGER The leading dimension of the array SA. LDSA >= max(1,M).
[out]	A	A is COMPLEX*16 array, dimension (LDA,N) On exit, the M-by-N coefficient matrix A.
[in]	LDA	LDA is INTEGER The leading dimension of the array A. LDA >= max(1,M).
[out]	INFO	INFO is INTEGER = 0: successful exit

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 102 of file clag2z.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, LDSA, M, N
*     ..
*     .. Array Arguments ..
      COMPLEX            SA( LDSA, * )
      COMPLEX*16         A( LDA, * )
*     ..
*
*  =====================================================================
*
*     .. Local Scalars ..
      INTEGER            I, J
*     ..
*     .. Executable Statements ..
*
      info = 0
      DO 20 j = 1, n
         DO 10 i = 1, m
            a( i, j ) = sa( i, j )
   10    CONTINUE
   20 CONTINUE
      RETURN
*
*     End of CLAG2Z
*

Here is the caller graph for this function: