Subroutine */
| 20429 | } /* ztrmv_ */ |
| 20430 | |
| 20431 | /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag, |
| 20432 | integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, |
| 20433 | integer *lda, doublecomplex *b, integer *ldb) |
| 20434 | { |
| 20435 | /* System generated locals */ |
| 20436 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4, i__5, |
| 20437 | i__6, i__7; |
| 20438 | doublecomplex z__1, z__2, z__3; |
| 20439 | |
| 20440 | /* Local variables */ |
| 20441 | static integer i__, j, k, info; |
| 20442 | static doublecomplex temp; |
| 20443 | static logical lside; |
| 20444 | extern logical lsame_(char *, char *); |
| 20445 | static integer nrowa; |
| 20446 | static logical upper; |
| 20447 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 20448 | static logical noconj, nounit; |
| 20449 | |
| 20450 | |
| 20451 | /* |
| 20452 | Purpose |
| 20453 | ======= |
| 20454 | |
| 20455 | ZTRSM solves one of the matrix equations |
| 20456 | |
| 20457 | op( A )*X = alpha*B, or X*op( A ) = alpha*B, |
| 20458 | |
| 20459 | where alpha is a scalar, X and B are m by n matrices, A is a unit, or |
| 20460 | non-unit, upper or lower triangular matrix and op( A ) is one of |
| 20461 | |
| 20462 | op( A ) = A or op( A ) = A' or op( A ) = conjg( A' ). |
| 20463 | |
| 20464 | The matrix X is overwritten on B. |
| 20465 | |
| 20466 | Arguments |
| 20467 | ========== |
| 20468 | |
| 20469 | SIDE - CHARACTER*1. |
| 20470 | On entry, SIDE specifies whether op( A ) appears on the left |
| 20471 | or right of X as follows: |
| 20472 | |
| 20473 | SIDE = 'L' or 'l' op( A )*X = alpha*B. |
| 20474 | |
| 20475 | SIDE = 'R' or 'r' X*op( A ) = alpha*B. |
| 20476 | |
| 20477 | Unchanged on exit. |
| 20478 | |
| 20479 | UPLO - CHARACTER*1. |
| 20480 | On entry, UPLO specifies whether the matrix A is an upper or |
| 20481 | lower triangular matrix as follows: |
| 20482 | |
| 20483 | UPLO = 'U' or 'u' A is an upper triangular matrix. |
| 20484 | |
| 20485 | UPLO = 'L' or 'l' A is a lower triangular matrix. |
| 20486 | |
| 20487 | Unchanged on exit. |
| 20488 |