221 SUBROUTINE cpftrs( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO )
229 CHARACTER TRANSR, UPLO
230 INTEGER INFO, LDB, N, NRHS
233 COMPLEX A( 0: * ), B( ldb, * )
240 parameter ( cone = ( 1.0e+0, 0.0e+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(
'CPFTRS', -info )
280 IF( n.EQ.0 .OR. nrhs.EQ.0 )
286 CALL ctfsm( transr,
'L', uplo,
'N',
'N', n, nrhs, cone, a, b,
288 CALL ctfsm( transr,
'L', uplo,
'C',
'N', n, nrhs, cone, a, b,
291 CALL ctfsm( transr,
'L', uplo,
'C',
'N', n, nrhs, cone, a, b,
293 CALL ctfsm( transr,
'L', uplo,
'N',
'N', n, nrhs, cone, a, b,
subroutine cpftrs(TRANSR, UPLO, N, NRHS, A, B, LDB, INFO)
CPFTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ctfsm(TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, B, LDB)
CTFSM solves a matrix equation (one operand is a triangular matrix in RFP format).