105 SUBROUTINE ztpttr( UPLO, N, AP, A, LDA, INFO )
117 COMPLEX*16 a( lda, * ), ap( * )
140 lower =
lsame( uplo,
'L' )
141 IF( .NOT.lower .AND. .NOT.
lsame( uplo,
'U' ) )
THEN
143 ELSE IF( n.LT.0 )
THEN
145 ELSE IF( lda.LT.max( 1, n ) )
THEN
149 CALL
xerbla(
'ZTPTTR', -info )
LOGICAL function lsame(CA, CB)
LSAME
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ztpttr(UPLO, N, AP, A, LDA, INFO)
ZTPTTR copies a triangular matrix from the standard packed format (TP) to the standard full format (T...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j