slag2d()

subroutine slag2d	(	integer	m,
		integer	n,
		real, dimension( ldsa, * )	sa,
		integer	ldsa,
		double precision, dimension( lda, * )	a,
		integer	lda,
		integer	info
	)

SLAG2D converts a single precision matrix to a double precision matrix.

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

Purpose:

 SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE
 PRECISION 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 REAL 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 DOUBLE PRECISION 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 103 of file slag2d.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 ..
      REAL               SA( LDSA, * )
      DOUBLE PRECISION   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 SLAG2D
*

Here is the caller graph for this function: