104 SUBROUTINE clacpy( UPLO, M, N, A, LDA, B, LDB )
113 INTEGER lda, ldb, m, n
116 COMPLEX 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 )
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
logical function lsame(CA, CB)
LSAME
subroutine clacpy(UPLO, M, N, A, LDA, B, LDB)
CLACPY copies all or part of one two-dimensional array to another.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j