1 SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO )
2 *
3 * -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) --
4 * -- LAPACK is a software package provided by Univ. of Tennessee, --
5 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6 * -- April 2011 --
7 *
8 * ..
9 * .. Scalar Arguments ..
10 INTEGER INFO, LDA, LDSA, M, N
11 * ..
12 * .. Array Arguments ..
13 REAL SA( LDSA, * )
14 DOUBLE PRECISION A( LDA, * )
15 * ..
16 *
17 * Purpose
18 * =======
19 *
20 * SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE
21 * PRECISION matrix, A.
22 *
23 * Note that while it is possible to overflow while converting
24 * from double to single, it is not possible to overflow when
25 * converting from single to double.
26 *
27 * This is an auxiliary routine so there is no argument checking.
28 *
29 * Arguments
30 * =========
31 *
32 * M (input) INTEGER
33 * The number of lines of the matrix A. M >= 0.
34 *
35 * N (input) INTEGER
36 * The number of columns of the matrix A. N >= 0.
37 *
38 * SA (input) REAL array, dimension (LDSA,N)
39 * On entry, the M-by-N coefficient matrix SA.
40 *
41 * LDSA (input) INTEGER
42 * The leading dimension of the array SA. LDSA >= max(1,M).
43 *
44 * A (output) DOUBLE PRECISION array, dimension (LDA,N)
45 * On exit, the M-by-N coefficient matrix A.
46 *
47 * LDA (input) INTEGER
48 * The leading dimension of the array A. LDA >= max(1,M).
49 *
50 * INFO (output) INTEGER
51 * = 0: successful exit
52 *
53 * =====================================================================
54 *
55 * .. Local Scalars ..
56 INTEGER I, J
57 * ..
58 * .. Executable Statements ..
59 *
60 INFO = 0
61 DO 20 J = 1, N
62 DO 10 I = 1, M
63 A( I, J ) = SA( I, J )
64 10 CONTINUE
65 20 CONTINUE
66 RETURN
67 *
68 * End of SLAG2D
69 *
70 END
2 *
3 * -- LAPACK PROTOTYPE auxiliary routine (version 3.3.1) --
4 * -- LAPACK is a software package provided by Univ. of Tennessee, --
5 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6 * -- April 2011 --
7 *
8 * ..
9 * .. Scalar Arguments ..
10 INTEGER INFO, LDA, LDSA, M, N
11 * ..
12 * .. Array Arguments ..
13 REAL SA( LDSA, * )
14 DOUBLE PRECISION A( LDA, * )
15 * ..
16 *
17 * Purpose
18 * =======
19 *
20 * SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE
21 * PRECISION matrix, A.
22 *
23 * Note that while it is possible to overflow while converting
24 * from double to single, it is not possible to overflow when
25 * converting from single to double.
26 *
27 * This is an auxiliary routine so there is no argument checking.
28 *
29 * Arguments
30 * =========
31 *
32 * M (input) INTEGER
33 * The number of lines of the matrix A. M >= 0.
34 *
35 * N (input) INTEGER
36 * The number of columns of the matrix A. N >= 0.
37 *
38 * SA (input) REAL array, dimension (LDSA,N)
39 * On entry, the M-by-N coefficient matrix SA.
40 *
41 * LDSA (input) INTEGER
42 * The leading dimension of the array SA. LDSA >= max(1,M).
43 *
44 * A (output) DOUBLE PRECISION array, dimension (LDA,N)
45 * On exit, the M-by-N coefficient matrix A.
46 *
47 * LDA (input) INTEGER
48 * The leading dimension of the array A. LDA >= max(1,M).
49 *
50 * INFO (output) INTEGER
51 * = 0: successful exit
52 *
53 * =====================================================================
54 *
55 * .. Local Scalars ..
56 INTEGER I, J
57 * ..
58 * .. Executable Statements ..
59 *
60 INFO = 0
61 DO 20 J = 1, N
62 DO 10 I = 1, M
63 A( I, J ) = SA( I, J )
64 10 CONTINUE
65 20 CONTINUE
66 RETURN
67 *
68 * End of SLAG2D
69 *
70 END