Subroutine */
| 26053 | } /* ztrti2_ */ |
| 26054 | |
| 26055 | /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, |
| 26056 | doublecomplex *a, integer *lda, integer *info) |
| 26057 | { |
| 26058 | /* System generated locals */ |
| 26059 | address a__1[2]; |
| 26060 | integer a_dim1, a_offset, i__1, i__2, i__3[2], i__4, i__5; |
| 26061 | doublecomplex z__1; |
| 26062 | char ch__1[2]; |
| 26063 | |
| 26064 | /* Local variables */ |
| 26065 | static integer j, jb, nb, nn; |
| 26066 | extern logical lsame_(char *, char *); |
| 26067 | static logical upper; |
| 26068 | extern /* Subroutine */ int ztrmm_(char *, char *, char *, char *, |
| 26069 | integer *, integer *, doublecomplex *, doublecomplex *, integer *, |
| 26070 | doublecomplex *, integer *), |
| 26071 | ztrsm_(char *, char *, char *, char *, integer *, integer *, |
| 26072 | doublecomplex *, doublecomplex *, integer *, doublecomplex *, |
| 26073 | integer *), ztrti2_(char *, char * |
| 26074 | , integer *, doublecomplex *, integer *, integer *), xerbla_(char *, integer *); |
| 26075 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 26076 | integer *, integer *, ftnlen, ftnlen); |
| 26077 | static logical nounit; |
| 26078 | |
| 26079 | |
| 26080 | /* |
| 26081 | -- LAPACK routine (version 3.2) -- |
| 26082 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 26083 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 26084 | November 2006 |
| 26085 | |
| 26086 | |
| 26087 | Purpose |
| 26088 | ======= |
| 26089 | |
| 26090 | ZTRTRI computes the inverse of a complex upper or lower triangular |
| 26091 | matrix A. |
| 26092 | |
| 26093 | This is the Level 3 BLAS version of the algorithm. |
| 26094 | |
| 26095 | Arguments |
| 26096 | ========= |
| 26097 | |
| 26098 | UPLO (input) CHARACTER*1 |
| 26099 | = 'U': A is upper triangular; |
| 26100 | = 'L': A is lower triangular. |
| 26101 | |
| 26102 | DIAG (input) CHARACTER*1 |
| 26103 | = 'N': A is non-unit triangular; |
| 26104 | = 'U': A is unit triangular. |
| 26105 | |
| 26106 | N (input) INTEGER |
| 26107 | The order of the matrix A. N >= 0. |
| 26108 | |
| 26109 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 26110 | On entry, the triangular matrix A. If UPLO = 'U', the |
| 26111 | leading N-by-N upper triangular part of the array A contains |
| 26112 | the upper triangular matrix, and the strictly lower |