111 SUBROUTINE cpotrs( UPLO, N, NRHS, A, LDA, B, LDB, INFO )
120 INTEGER INFO, LDA, LDB, N, NRHS
123 COMPLEX A( lda, * ), B( ldb, * )
130 parameter ( one = ( 1.0e+0, 0.0e+0 ) )
150 upper = lsame( uplo,
'U' )
151 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
153 ELSE IF( n.LT.0 )
THEN
155 ELSE IF( nrhs.LT.0 )
THEN
157 ELSE IF( lda.LT.max( 1, n ) )
THEN
159 ELSE IF( ldb.LT.max( 1, n ) )
THEN
163 CALL xerbla(
'CPOTRS', -info )
169 IF( n.EQ.0 .OR. nrhs.EQ.0 )
178 CALL ctrsm(
'Left',
'Upper',
'Conjugate transpose',
'Non-unit',
179 $ n, nrhs, one, a, lda, b, ldb )
183 CALL ctrsm(
'Left',
'Upper',
'No transpose',
'Non-unit', n,
184 $ nrhs, one, a, lda, b, ldb )
191 CALL ctrsm(
'Left',
'Lower',
'No transpose',
'Non-unit', n,
192 $ nrhs, one, a, lda, b, ldb )
196 CALL ctrsm(
'Left',
'Lower',
'Conjugate transpose',
'Non-unit',
197 $ n, nrhs, one, a, lda, b, ldb )
subroutine ctrsm(SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA, B, LDB)
CTRSM
subroutine cpotrs(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
CPOTRS
subroutine xerbla(SRNAME, INFO)
XERBLA