Subroutine */
| 21101 | } /* ztrsm_ */ |
| 21102 | |
| 21103 | /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n, |
| 21104 | doublecomplex *a, integer *lda, doublecomplex *x, integer *incx) |
| 21105 | { |
| 21106 | /* System generated locals */ |
| 21107 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 21108 | doublecomplex z__1, z__2, z__3; |
| 21109 | |
| 21110 | /* Local variables */ |
| 21111 | static integer i__, j, ix, jx, kx, info; |
| 21112 | static doublecomplex temp; |
| 21113 | extern logical lsame_(char *, char *); |
| 21114 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 21115 | static logical noconj, nounit; |
| 21116 | |
| 21117 | |
| 21118 | /* |
| 21119 | Purpose |
| 21120 | ======= |
| 21121 | |
| 21122 | ZTRSV solves one of the systems of equations |
| 21123 | |
| 21124 | A*x = b, or A'*x = b, or conjg( A' )*x = b, |
| 21125 | |
| 21126 | where b and x are n element vectors and A is an n by n unit, or |
| 21127 | non-unit, upper or lower triangular matrix. |
| 21128 | |
| 21129 | No test for singularity or near-singularity is included in this |
| 21130 | routine. Such tests must be performed before calling this routine. |
| 21131 | |
| 21132 | Arguments |
| 21133 | ========== |
| 21134 | |
| 21135 | UPLO - CHARACTER*1. |
| 21136 | On entry, UPLO specifies whether the matrix is an upper or |
| 21137 | lower triangular matrix as follows: |
| 21138 | |
| 21139 | UPLO = 'U' or 'u' A is an upper triangular matrix. |
| 21140 | |
| 21141 | UPLO = 'L' or 'l' A is a lower triangular matrix. |
| 21142 | |
| 21143 | Unchanged on exit. |
| 21144 | |
| 21145 | TRANS - CHARACTER*1. |
| 21146 | On entry, TRANS specifies the equations to be solved as |
| 21147 | follows: |
| 21148 | |
| 21149 | TRANS = 'N' or 'n' A*x = b. |
| 21150 | |
| 21151 | TRANS = 'T' or 't' A'*x = b. |
| 21152 | |
| 21153 | TRANS = 'C' or 'c' conjg( A' )*x = b. |
| 21154 | |
| 21155 | Unchanged on exit. |
| 21156 | |
| 21157 | DIAG - CHARACTER*1. |
| 21158 | On entry, DIAG specifies whether or not A is unit |
| 21159 | triangular as follows: |
| 21160 |