LAPACK Code: dslaconvertges2d.f
DSLACONVERTGES2D

      SUBROUTINE DSLACONVERTGES2D(M,N,SA,LDSA,A,LDA,INFO)
*
*  -- LAPACK auxiliary routine (version @(version)) --

* @(who) * @(date) * * .. Scalar Arguments .. INTEGER INFO,LDA,LDSA,M,N * .. * .. Array Arguments .. REAL SA(LDSA,*) DOUBLE PRECISION A(LDA,*)

* .. * * Purpose * ======= * * DSLACONVERTGES2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE * PRECISION matrix, A. * * 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 DSLACONVERTGED2S * END

Apr 23 2014 Admin Login