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.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
logical function lsame(CA, CB)
LSAME
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j