92 SUBROUTINE spotri( UPLO, N, A, LDA, INFO )
123 IF( .NOT.lsame( uplo,
'U' ) .AND.
124 $ .NOT.lsame( uplo,
'L' ) )
THEN
126 ELSE IF( n.LT.0 )
THEN
128 ELSE IF( lda.LT.max( 1, n ) )
THEN
132 CALL xerbla(
'SPOTRI', -info )
143 CALL strtri( uplo,
'Non-unit', n, a, lda, info )
149 CALL slauum( uplo, n, a, lda, info )
92 SUBROUTINE spotri( UPLO, N, A, LDA, INFO )
…
subroutine xerbla(srname, info)
subroutine slauum(uplo, n, a, lda, info)
SLAUUM computes the product UUH or LHL, where U and L are upper or lower triangular matrices (blocked...
subroutine spotri(uplo, n, a, lda, info)
SPOTRI
subroutine strtri(uplo, diag, n, a, lda, info)
STRTRI