105 SUBROUTINE clacp2( UPLO, M, N, A, LDA, B, LDB )
114 INTEGER LDA, LDB, M, N
135 IF( lsame( uplo,
'U' ) )
THEN
137 DO 10 i = 1, min( j, m )
138 b( i, j ) = a( i, j )
142 ELSE IF( lsame( uplo,
'L' ) )
THEN
145 b( i, j ) = a( i, j )
152 b( i, j ) = a( i, j )
subroutine clacp2(UPLO, M, N, A, LDA, B, LDB)
CLACP2 copies all or part of a real two-dimensional array to a complex array.