104 SUBROUTINE slacpy( UPLO, M, N, A, LDA, B, LDB )
113 INTEGER lda, ldb, m, n
116 REAL 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 )
139 ELSE IF(
lsame( uplo,
'L' ) )
THEN
142 b( i,
j ) = a( i,
j )
148 b( i,
j ) = a( i,
j )
LOGICAL function lsame(CA, CB)
LSAME
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine slacpy(UPLO, M, N, A, LDA, B, LDB)
SLACPY 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