Subroutine */
| 19897 | } /* ztrmm_ */ |
| 19898 | |
| 19899 | /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n, |
| 19900 | doublecomplex *a, integer *lda, doublecomplex *x, integer *incx) |
| 19901 | { |
| 19902 | /* System generated locals */ |
| 19903 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 19904 | doublecomplex z__1, z__2, z__3; |
| 19905 | |
| 19906 | /* Local variables */ |
| 19907 | static integer i__, j, ix, jx, kx, info; |
| 19908 | static doublecomplex temp; |
| 19909 | extern logical lsame_(char *, char *); |
| 19910 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 19911 | static logical noconj, nounit; |
| 19912 | |
| 19913 | |
| 19914 | /* |
| 19915 | Purpose |
| 19916 | ======= |
| 19917 | |
| 19918 | ZTRMV performs one of the matrix-vector operations |
| 19919 | |
| 19920 | x := A*x, or x := A'*x, or x := conjg( A' )*x, |
| 19921 | |
| 19922 | where x is an n element vector and A is an n by n unit, or non-unit, |
| 19923 | upper or lower triangular matrix. |
| 19924 | |
| 19925 | Arguments |
| 19926 | ========== |
| 19927 | |
| 19928 | UPLO - CHARACTER*1. |
| 19929 | On entry, UPLO specifies whether the matrix is an upper or |
| 19930 | lower triangular matrix as follows: |
| 19931 | |
| 19932 | UPLO = 'U' or 'u' A is an upper triangular matrix. |
| 19933 | |
| 19934 | UPLO = 'L' or 'l' A is a lower triangular matrix. |
| 19935 | |
| 19936 | Unchanged on exit. |
| 19937 | |
| 19938 | TRANS - CHARACTER*1. |
| 19939 | On entry, TRANS specifies the operation to be performed as |
| 19940 | follows: |
| 19941 | |
| 19942 | TRANS = 'N' or 'n' x := A*x. |
| 19943 | |
| 19944 | TRANS = 'T' or 't' x := A'*x. |
| 19945 | |
| 19946 | TRANS = 'C' or 'c' x := conjg( A' )*x. |
| 19947 | |
| 19948 | Unchanged on exit. |
| 19949 | |
| 19950 | DIAG - CHARACTER*1. |
| 19951 | On entry, DIAG specifies whether or not A is unit |
| 19952 | triangular as follows: |
| 19953 | |
| 19954 | DIAG = 'U' or 'u' A is assumed to be unit triangular. |
| 19955 | |
| 19956 | DIAG = 'N' or 'n' A is not assumed to be unit |