LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ 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.
Date
December 2016

Definition at line 106 of file slag2d.f.

106 *
107 * -- LAPACK auxiliary routine (version 3.7.0) --
108 * -- LAPACK is a software package provided by Univ. of Tennessee, --
109 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
110 * December 2016
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: