105 SUBROUTINE zlacp2( UPLO, M, N, A, LDA, B, LDB )
114 INTEGER lda, ldb, m, n
117 DOUBLE PRECISION a( lda, * )
118 COMPLEX*16 b( ldb, * )
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 )
LOGICAL function lsame(CA, CB)
LSAME
subroutine zlacp2(UPLO, M, N, A, LDA, B, LDB)
ZLACP2 copies all or part of a real two-dimensional array to a complex array.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j