209 SUBROUTINE ztfttp( TRANSR, UPLO, N, ARF, AP, INFO )
217 CHARACTER TRANSR, UPLO
221 COMPLEX*16 AP( 0: * ), ARF( 0: * )
229 LOGICAL LOWER, NISODD, NORMALTRANSR
230 INTEGER N1, N2, K, NT
232 INTEGER IJP, JP, LDA, JS
251 normaltransr = lsame( transr,
'N' )
252 lower = lsame( uplo,
'L' )
253 IF( .NOT.normaltransr .AND. .NOT.lsame( transr,
'C' ) )
THEN
255 ELSE IF( .NOT.lower .AND. .NOT.lsame( uplo,
'U' ) )
THEN
257 ELSE IF( n.LT.0 )
THEN
261 CALL xerbla(
'ZTFTTP', -info )
271 IF( normaltransr )
THEN
274 ap( 0 ) = dconjg( arf( 0 ) )
299 IF( mod( n, 2 ).EQ.0 )
THEN
310 IF( .NOT.normaltransr )
319 IF( normaltransr )
THEN
334 ap( ijp ) = arf( ij )
342 ap( ijp ) = dconjg( arf( ij ) )
357 ap( ijp ) = dconjg( arf( ij ) )
366 ap( ijp ) = arf( ij )
386 DO ij = i*( lda+1 ), n*lda - 1, lda
387 ap( ijp ) = dconjg( arf( ij ) )
393 DO ij = js, js + n2 - j - 1
394 ap( ijp ) = arf( ij )
410 ap( ijp ) = arf( ij )
416 DO ij = i, i + ( n1+i )*lda, lda
417 ap( ijp ) = dconjg( arf( ij ) )
430 IF( normaltransr )
THEN
445 ap( ijp ) = arf( ij )
453 ap( ijp ) = dconjg( arf( ij ) )
468 ap( ijp ) = dconjg( arf( ij ) )
477 ap( ijp ) = arf( ij )
497 DO ij = i + ( i+1 )*lda, ( n+1 )*lda - 1, lda
498 ap( ijp ) = dconjg( arf( ij ) )
504 DO ij = js, js + k - j - 1
505 ap( ijp ) = arf( ij )
521 ap( ijp ) = arf( ij )
527 DO ij = i, i + ( k+i )*lda, lda
528 ap( ijp ) = dconjg( arf( ij ) )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ztfttp(TRANSR, UPLO, N, ARF, AP, INFO)
ZTFTTP copies a triangular matrix from the rectangular full packed format (TF) to the standard packed...