SUBROUTINE DLATCPY( UPLO, M, N, A, LDA, B, LDB )
*
IF( LSAME( UPLO, 'U' ) ) THEN
DO 20 J = 1, N
DO 10 I = 1, MIN( J, M )
B( J, I ) = A( I, J ) 10 CONTINUE 20 CONTINUE
ELSE IF( LSAME( UPLO, 'L' ) ) THEN
DO 40 J = 1, N
DO 30 I = J, M
B( J, I ) = A( I, J ) 30 CONTINUE 40 CONTINUE
ELSE
DO 60 J = 1, N
DO 50 I = 1, M
B( J, I ) = A( I, J ) 50 CONTINUE 60 CONTINUE
END IF RETURN *
END