00001 SUBROUTINE SLAG2D( 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 REAL SA( LDSA, * ) 00014 DOUBLE PRECISION A( LDA, * ) 00015 * .. 00016 * 00017 * Purpose 00018 * ======= 00019 * 00020 * SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE 00021 * PRECISION matrix, A. 00022 * 00023 * Note that while it is possible to overflow while converting 00024 * from double to single, it is not possible to overflow when 00025 * converting from single to double. 00026 * 00027 * This is an auxiliary routine so there is no argument checking. 00028 * 00029 * Arguments 00030 * ========= 00031 * 00032 * M (input) INTEGER 00033 * The number of lines of the matrix A. M >= 0. 00034 * 00035 * N (input) INTEGER 00036 * The number of columns of the matrix A. N >= 0. 00037 * 00038 * SA (input) REAL array, dimension (LDSA,N) 00039 * On entry, the M-by-N coefficient matrix SA. 00040 * 00041 * LDSA (input) INTEGER 00042 * The leading dimension of the array SA. LDSA >= max(1,M). 00043 * 00044 * A (output) DOUBLE PRECISION array, dimension (LDA,N) 00045 * On exit, the M-by-N coefficient matrix A. 00046 * 00047 * LDA (input) INTEGER 00048 * The leading dimension of the array A. LDA >= max(1,M). 00049 * 00050 * INFO (output) INTEGER 00051 * = 0: successful exit 00052 * ========= 00053 * 00054 * .. Local Scalars .. 00055 INTEGER I, J 00056 * .. 00057 * .. Executable Statements .. 00058 * 00059 INFO = 0 00060 DO 20 J = 1, N 00061 DO 10 I = 1, M 00062 A( I, J ) = SA( I, J ) 00063 10 CONTINUE 00064 20 CONTINUE 00065 RETURN 00066 * 00067 * End of SLAG2D 00068 * 00069 END
1.7.2