1 SUBROUTINE CLAG2Z( 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 COMPLEX SA( LDSA, * )
14 COMPLEX*16 A( LDA, * )
15 * ..
16 *
17 * Purpose
18 * =======
19 *
20 * CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
21 *
22 * Note that while it is possible to overflow while converting
23 * from double to single, it is not possible to overflow when
24 * converting from single to double.
25 *
26 * This is an auxiliary routine so there is no argument checking.
27 *
28 * Arguments
29 * =========
30 *
31 * M (input) INTEGER
32 * The number of lines of the matrix A. M >= 0.
33 *
34 * N (input) INTEGER
35 * The number of columns of the matrix A. N >= 0.
36 *
37 * SA (input) COMPLEX array, dimension (LDSA,N)
38 * On entry, the M-by-N coefficient matrix SA.
39 *
40 * LDSA (input) INTEGER
41 * The leading dimension of the array SA. LDSA >= max(1,M).
42 *
43 * A (output) COMPLEX*16 array, dimension (LDA,N)
44 * On exit, the M-by-N coefficient matrix A.
45 *
46 * LDA (input) INTEGER
47 * The leading dimension of the array A. LDA >= max(1,M).
48 *
49 * INFO (output) INTEGER
50 * = 0: successful exit
51 *
52 * =====================================================================
53 *
54 * .. Local Scalars ..
55 INTEGER I, J
56 * ..
57 * .. Executable Statements ..
58 *
59 INFO = 0
60 DO 20 J = 1, N
61 DO 10 I = 1, M
62 A( I, J ) = SA( I, J )
63 10 CONTINUE
64 20 CONTINUE
65 RETURN
66 *
67 * End of CLAG2Z
68 *
69 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 COMPLEX SA( LDSA, * )
14 COMPLEX*16 A( LDA, * )
15 * ..
16 *
17 * Purpose
18 * =======
19 *
20 * CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
21 *
22 * Note that while it is possible to overflow while converting
23 * from double to single, it is not possible to overflow when
24 * converting from single to double.
25 *
26 * This is an auxiliary routine so there is no argument checking.
27 *
28 * Arguments
29 * =========
30 *
31 * M (input) INTEGER
32 * The number of lines of the matrix A. M >= 0.
33 *
34 * N (input) INTEGER
35 * The number of columns of the matrix A. N >= 0.
36 *
37 * SA (input) COMPLEX array, dimension (LDSA,N)
38 * On entry, the M-by-N coefficient matrix SA.
39 *
40 * LDSA (input) INTEGER
41 * The leading dimension of the array SA. LDSA >= max(1,M).
42 *
43 * A (output) COMPLEX*16 array, dimension (LDA,N)
44 * On exit, the M-by-N coefficient matrix A.
45 *
46 * LDA (input) INTEGER
47 * The leading dimension of the array A. LDA >= max(1,M).
48 *
49 * INFO (output) INTEGER
50 * = 0: successful exit
51 *
52 * =====================================================================
53 *
54 * .. Local Scalars ..
55 INTEGER I, J
56 * ..
57 * .. Executable Statements ..
58 *
59 INFO = 0
60 DO 20 J = 1, N
61 DO 10 I = 1, M
62 A( I, J ) = SA( I, J )
63 10 CONTINUE
64 20 CONTINUE
65 RETURN
66 *
67 * End of CLAG2Z
68 *
69 END