SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO)
*
* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.1) --
* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
* January 2007
*
* ..
* .. WARNING: PROTOTYPE ..
* This is an LAPACK PROTOTYPE routine which means that the
* interface of this routine is likely to be changed in the future
* based on community feedback.
*
* .. Scalar Arguments ..
INTEGER INFO,LDA,LDSA,M,N
* ..
* .. Array Arguments ..
REAL SA(LDSA,*)
DOUBLE PRECISION A(LDA,*)
* ..
*
* 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 a helper routine so there is no argument checking.
*
* Arguments
* =========
*
* M (input) INTEGER
* The number of lines of the matrix A. M >= 0.
*
* N (input) INTEGER
* The number of columns of the matrix A. N >= 0.
*
* SA (output) REAL array, dimension (LDSA,N)
* On exit, the M-by-N coefficient matrix SA.
*
* LDSA (input) INTEGER
* The leading dimension of the array SA. LDSA >= max(1,M).
*
* A (input) DOUBLE PRECISION array, dimension (LDA,N)
* On entry, the M-by-N coefficient matrix A.
*
* LDA (input) INTEGER
* The leading dimension of the array A. LDA >= max(1,M).
*
* INFO (output) INTEGER
* = 0: successful exit
* =========
*
* .. Local Scalars ..
INTEGER I,J
* ..
* .. Executable Statements ..
*
INFO = 0
DO 20 J = 1,N
DO 30 I = 1,M
A(I,J) = SA(I,J)
30 CONTINUE
20 CONTINUE
RETURN
*
* End of SLAG2D
*
END