SUBROUTINE ZLATCPY( 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 ) = DCONJG( 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 ) = DCONJG( A( I, J ) ) 30 CONTINUE 40 CONTINUE
ELSE
DO 60 J = 1, N
DO 50 I = 1, M
B( J, I ) = DCONJG( A( I, J ) ) 50 CONTINUE 60 CONTINUE
END IF RETURN *
END