 LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 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.

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
Date
September 2012

Definition at line 106 of file slag2d.f.

106 *
107 * -- LAPACK auxiliary routine (version 3.4.2) --
108 * -- LAPACK is a software package provided by Univ. of Tennessee, --
109 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
110 * September 2012
111 *
112 * .. Scalar Arguments ..
113  INTEGER info, lda, ldsa, m, n
114 * ..
115 * .. Array Arguments ..
116  REAL sa( ldsa, * )
117  DOUBLE PRECISION a( lda, * )
118 * ..
119 *
120 * =====================================================================
121 *
122 * .. Local Scalars ..
123  INTEGER i, j
124 * ..
125 * .. Executable Statements ..
126 *
127  info = 0
128  DO 20 j = 1, n
129  DO 10 i = 1, m
130  a( i, j ) = sa( i, j )
131  10 CONTINUE
132  20 CONTINUE
133  RETURN
134 *
135 * End of SLAG2D
136 *

Here is the caller graph for this function: