221 SUBROUTINE zpftrs( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO )
229 CHARACTER TRANSR, UPLO
230 INTEGER INFO, LDB, N, NRHS
233 COMPLEX*16 A( 0: * ), B( ldb, * )
240 parameter ( cone = ( 1.0d+0, 0.0d+0 ) )
243 LOGICAL LOWER, NORMALTRANSR
260 normaltransr = lsame( transr,
'N' )
261 lower = lsame( uplo,
'L' )
262 IF( .NOT.normaltransr .AND. .NOT.lsame( transr,
'C' ) )
THEN
264 ELSE IF( .NOT.lower .AND. .NOT.lsame( uplo,
'U' ) )
THEN
266 ELSE IF( n.LT.0 )
THEN
268 ELSE IF( nrhs.LT.0 )
THEN
270 ELSE IF( ldb.LT.max( 1, n ) )
THEN
274 CALL xerbla(
'ZPFTRS', -info )
280 IF( n.EQ.0 .OR. nrhs.EQ.0 )
286 CALL ztfsm( transr,
'L', uplo,
'N',
'N', n, nrhs, cone, a, b,
288 CALL ztfsm( transr,
'L', uplo,
'C',
'N', n, nrhs, cone, a, b,
291 CALL ztfsm( transr,
'L', uplo,
'C',
'N', n, nrhs, cone, a, b,
293 CALL ztfsm( transr,
'L', uplo,
'N',
'N', n, nrhs, cone, a, b,
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ztfsm(TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, B, LDB)
ZTFSM solves a matrix equation (one operand is a triangular matrix in RFP format).
subroutine zpftrs(TRANSR, UPLO, N, NRHS, A, B, LDB, INFO)
ZPFTRS