00001 SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) 00002 * 00003 * -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- 00004 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00005 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00006 * August 2007 00007 * 00008 * .. 00009 * .. Scalar Arguments .. 00010 INTEGER INFO, LDA, LDSA, M, N 00011 * .. 00012 * .. Array Arguments .. 00013 COMPLEX SA( LDSA, * ) 00014 COMPLEX*16 A( LDA, * ) 00015 * .. 00016 * 00017 * Purpose 00018 * ======= 00019 * 00020 * CLAG2Z converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A. 00021 * 00022 * Note that while it is possible to overflow while converting 00023 * from double to single, it is not possible to overflow when 00024 * converting from single to double. 00025 * 00026 * This is an auxiliary routine so there is no argument checking. 00027 * 00028 * Arguments 00029 * ========= 00030 * 00031 * M (input) INTEGER 00032 * The number of lines of the matrix A. M >= 0. 00033 * 00034 * N (input) INTEGER 00035 * The number of columns of the matrix A. N >= 0. 00036 * 00037 * SA (input) COMPLEX array, dimension (LDSA,N) 00038 * On entry, the M-by-N coefficient matrix SA. 00039 * 00040 * LDSA (input) INTEGER 00041 * The leading dimension of the array SA. LDSA >= max(1,M). 00042 * 00043 * A (output) COMPLEX*16 array, dimension (LDA,N) 00044 * On exit, the M-by-N coefficient matrix A. 00045 * 00046 * LDA (input) INTEGER 00047 * The leading dimension of the array A. LDA >= max(1,M). 00048 * 00049 * INFO (output) INTEGER 00050 * = 0: successful exit 00051 * ========= 00052 * 00053 * .. Local Scalars .. 00054 INTEGER I, J 00055 * .. 00056 * .. Executable Statements .. 00057 * 00058 INFO = 0 00059 DO 20 J = 1, N 00060 DO 10 I = 1, M 00061 A( I, J ) = SA( I, J ) 00062 10 CONTINUE 00063 20 CONTINUE 00064 RETURN 00065 * 00066 * End of CLAG2Z 00067 * 00068 END
1.7.2