1 SUBROUTINE dlacpy( UPLO, M, N, A, LDA, B, LDB )
10 INTEGER LDA, LDB, M, N
13 DOUBLE PRECISION A( LDA, * ), B( LDB, * )
65 IF( lsame( uplo,
'U' ) )
THEN
67 DO 10 i = 1, min( j, m )
71 ELSE IF( lsame( uplo,
'L' ) )
THEN
subroutine dlacpy(UPLO, M, N, A, LDA, B, LDB)