1
SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB )
3
* -- LAPACK auxiliary routine (version 2.0) --
4
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
5
* Courant Institute, Argonne National Lab, and Rice University
8
* .. Scalar Arguments ..
10
INTEGER LDA, LDB, M, N
12
* .. Array Arguments ..
13
DOUBLE PRECISION A( LDA, * ), B( LDB, * )
19
* DLACPY copies all or part of a two-dimensional matrix A to another
25
* UPLO (input) CHARACTER*1
26
* Specifies the part of the matrix A to be copied to B.
27
* = 'U': Upper triangular part
28
* = 'L': Lower triangular part
29
* Otherwise: All of the matrix A
32
* The number of rows of the matrix A. M >= 0.
35
* The number of columns of the matrix A. N >= 0.
37
* A (input) DOUBLE PRECISION array, dimension (LDA,N)
38
* The m by n matrix A. If UPLO = 'U', only the upper triangle
39
* or trapezoid is accessed; if UPLO = 'L', only the lower
40
* triangle or trapezoid is accessed.
43
* The leading dimension of the array A. LDA >= max(1,M).
45
* B (output) DOUBLE PRECISION array, dimension (LDB,N)
46
* On exit, B = A in the locations specified by UPLO.
49
* The leading dimension of the array B. LDB >= max(1,M).
51
* =====================================================================
56
* .. External Functions ..
60
* .. Intrinsic Functions ..
63
* .. Executable Statements ..
65
IF( LSAME( UPLO, 'U' ) ) THEN
67
DO 10 I = 1, MIN( J, M )
71
ELSE IF( LSAME( UPLO, 'L' ) ) THEN