105 SUBROUTINE ctrttp( UPLO, N, A, LDA, AP, INFO )
117 COMPLEX 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(
'CTRTTP', -info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ctrttp(UPLO, N, A, LDA, AP, INFO)
CTRTTP copies a triangular matrix from the standard full format (TR) to the standard packed format (T...