 LAPACK 3.11.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ 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.

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```

Definition at line 103 of file slag2d.f.

104*
105* -- LAPACK auxiliary routine --
106* -- LAPACK is a software package provided by Univ. of Tennessee, --
107* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
108*
109* .. Scalar Arguments ..
110 INTEGER INFO, LDA, LDSA, M, N
111* ..
112* .. Array Arguments ..
113 REAL SA( LDSA, * )
114 DOUBLE PRECISION A( LDA, * )
115* ..
116*
117* =====================================================================
118*
119* .. Local Scalars ..
120 INTEGER I, J
121* ..
122* .. Executable Statements ..
123*
124 info = 0
125 DO 20 j = 1, n
126 DO 10 i = 1, m
127 a( i, j ) = sa( i, j )
128 10 CONTINUE
129 20 CONTINUE
130 RETURN
131*
132* End of SLAG2D
133*
Here is the caller graph for this function: