102 SUBROUTINE dlacpy( UPLO, M, N, A, LDA, B, LDB )
110 INTEGER LDA, LDB, M, N
113 DOUBLE PRECISION A( LDA, * ), B( LDB, * )
130 IF( lsame( uplo,
'U' ) )
THEN
132 DO 10 i = 1, min( j, m )
133 b( i, j ) = a( i, j )
136 ELSE IF( lsame( uplo,
'L' ) )
THEN
139 b( i, j ) = a( i, j )
145 b( i, j ) = a( i, j )
subroutine dlacpy(UPLO, M, N, A, LDA, B, LDB)
DLACPY copies all or part of one two-dimensional array to another.