Subroutine */
| 25889 | } /* ztrexc_ */ |
| 25890 | |
| 25891 | /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, |
| 25892 | doublecomplex *a, integer *lda, integer *info) |
| 25893 | { |
| 25894 | /* System generated locals */ |
| 25895 | integer a_dim1, a_offset, i__1, i__2; |
| 25896 | doublecomplex z__1; |
| 25897 | |
| 25898 | /* Local variables */ |
| 25899 | static integer j; |
| 25900 | static doublecomplex ajj; |
| 25901 | extern logical lsame_(char *, char *); |
| 25902 | extern /* Subroutine */ int zscal_(integer *, doublecomplex *, |
| 25903 | doublecomplex *, integer *); |
| 25904 | static logical upper; |
| 25905 | extern /* Subroutine */ int ztrmv_(char *, char *, char *, integer *, |
| 25906 | doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *); |
| 25907 | static logical nounit; |
| 25908 | |
| 25909 | |
| 25910 | /* |
| 25911 | -- LAPACK routine (version 3.2) -- |
| 25912 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 25913 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 25914 | November 2006 |
| 25915 | |
| 25916 | |
| 25917 | Purpose |
| 25918 | ======= |
| 25919 | |
| 25920 | ZTRTI2 computes the inverse of a complex upper or lower triangular |
| 25921 | matrix. |
| 25922 | |
| 25923 | This is the Level 2 BLAS version of the algorithm. |
| 25924 | |
| 25925 | Arguments |
| 25926 | ========= |
| 25927 | |
| 25928 | UPLO (input) CHARACTER*1 |
| 25929 | Specifies whether the matrix A is upper or lower triangular. |
| 25930 | = 'U': Upper triangular |
| 25931 | = 'L': Lower triangular |
| 25932 | |
| 25933 | DIAG (input) CHARACTER*1 |
| 25934 | Specifies whether or not the matrix A is unit triangular. |
| 25935 | = 'N': Non-unit triangular |
| 25936 | = 'U': Unit triangular |
| 25937 | |
| 25938 | N (input) INTEGER |
| 25939 | The order of the matrix A. N >= 0. |
| 25940 | |
| 25941 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 25942 | On entry, the triangular matrix A. If UPLO = 'U', the |
| 25943 | leading n by n upper triangular part of the array A contains |
| 25944 | the upper triangular matrix, and the strictly lower |
| 25945 | triangular part of A is not referenced. If UPLO = 'L', the |
| 25946 | leading n by n lower triangular part of the array A contains |
| 25947 | the lower triangular matrix, and the strictly upper |
| 25948 | triangular part of A is not referenced. If DIAG = 'U', the |