Subroutine */
| 25772 | } /* ctrexc_ */ |
| 25773 | |
| 25774 | /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a, |
| 25775 | integer *lda, integer *info) |
| 25776 | { |
| 25777 | /* System generated locals */ |
| 25778 | integer a_dim1, a_offset, i__1, i__2; |
| 25779 | complex q__1; |
| 25780 | |
| 25781 | /* Local variables */ |
| 25782 | static integer j; |
| 25783 | static complex ajj; |
| 25784 | extern /* Subroutine */ int cscal_(integer *, complex *, complex *, |
| 25785 | integer *); |
| 25786 | extern logical lsame_(char *, char *); |
| 25787 | static logical upper; |
| 25788 | extern /* Subroutine */ int ctrmv_(char *, char *, char *, integer *, |
| 25789 | complex *, integer *, complex *, integer *), xerbla_(char *, integer *); |
| 25790 | static logical nounit; |
| 25791 | |
| 25792 | |
| 25793 | /* |
| 25794 | -- LAPACK routine (version 3.2) -- |
| 25795 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 25796 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 25797 | November 2006 |
| 25798 | |
| 25799 | |
| 25800 | Purpose |
| 25801 | ======= |
| 25802 | |
| 25803 | CTRTI2 computes the inverse of a complex upper or lower triangular |
| 25804 | matrix. |
| 25805 | |
| 25806 | This is the Level 2 BLAS version of the algorithm. |
| 25807 | |
| 25808 | Arguments |
| 25809 | ========= |
| 25810 | |
| 25811 | UPLO (input) CHARACTER*1 |
| 25812 | Specifies whether the matrix A is upper or lower triangular. |
| 25813 | = 'U': Upper triangular |
| 25814 | = 'L': Lower triangular |
| 25815 | |
| 25816 | DIAG (input) CHARACTER*1 |
| 25817 | Specifies whether or not the matrix A is unit triangular. |
| 25818 | = 'N': Non-unit triangular |
| 25819 | = 'U': Unit triangular |
| 25820 | |
| 25821 | N (input) INTEGER |
| 25822 | The order of the matrix A. N >= 0. |
| 25823 | |
| 25824 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 25825 | On entry, the triangular matrix A. If UPLO = 'U', the |
| 25826 | leading n by n upper triangular part of the array A contains |
| 25827 | the upper triangular matrix, and the strictly lower |
| 25828 | triangular part of A is not referenced. If UPLO = 'L', the |
| 25829 | leading n by n lower triangular part of the array A contains |
| 25830 | the lower triangular matrix, and the strictly upper |
| 25831 | triangular part of A is not referenced. If DIAG = 'U', the |