104 SUBROUTINE zlacpy( UPLO, M, N, A, LDA, B, LDB )
113 INTEGER lda, ldb, m, n
116 COMPLEX*16 a( lda, * ),
b( ldb, * )
133 IF(
lsame( uplo,
'U' ) )
THEN
135 DO 10 i = 1, min(
j, m )
136 b( i,
j ) = a( i,
j )
140 ELSE IF(
lsame( uplo,
'L' ) )
THEN
143 b( i,
j ) = a( i,
j )
150 b( i,
j ) = a( i,
j )
LOGICAL function lsame(CA, CB)
LSAME
subroutine zlacpy(UPLO, M, N, A, LDA, B, LDB)
ZLACPY copies all or part of one two-dimensional array to another.
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