Subroutine */
| 19235 | } /* zswap_ */ |
| 19236 | |
| 19237 | /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag, |
| 19238 | integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, |
| 19239 | integer *lda, doublecomplex *b, integer *ldb) |
| 19240 | { |
| 19241 | /* System generated locals */ |
| 19242 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3, i__4, i__5, |
| 19243 | i__6; |
| 19244 | doublecomplex z__1, z__2, z__3; |
| 19245 | |
| 19246 | /* Local variables */ |
| 19247 | static integer i__, j, k, info; |
| 19248 | static doublecomplex temp; |
| 19249 | static logical lside; |
| 19250 | extern logical lsame_(char *, char *); |
| 19251 | static integer nrowa; |
| 19252 | static logical upper; |
| 19253 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 19254 | static logical noconj, nounit; |
| 19255 | |
| 19256 | |
| 19257 | /* |
| 19258 | Purpose |
| 19259 | ======= |
| 19260 | |
| 19261 | ZTRMM performs one of the matrix-matrix operations |
| 19262 | |
| 19263 | B := alpha*op( A )*B, or B := alpha*B*op( A ) |
| 19264 | |
| 19265 | where alpha is a scalar, B is an m by n matrix, A is a unit, or |
| 19266 | non-unit, upper or lower triangular matrix and op( A ) is one of |
| 19267 | |
| 19268 | op( A ) = A or op( A ) = A' or op( A ) = conjg( A' ). |
| 19269 | |
| 19270 | Arguments |
| 19271 | ========== |
| 19272 | |
| 19273 | SIDE - CHARACTER*1. |
| 19274 | On entry, SIDE specifies whether op( A ) multiplies B from |
| 19275 | the left or right as follows: |
| 19276 | |
| 19277 | SIDE = 'L' or 'l' B := alpha*op( A )*B. |
| 19278 | |
| 19279 | SIDE = 'R' or 'r' B := alpha*B*op( A ). |
| 19280 | |
| 19281 | Unchanged on exit. |
| 19282 | |
| 19283 | UPLO - CHARACTER*1. |
| 19284 | On entry, UPLO specifies whether the matrix A is an upper or |
| 19285 | lower triangular matrix as follows: |
| 19286 | |
| 19287 | UPLO = 'U' or 'u' A is an upper triangular matrix. |
| 19288 | |
| 19289 | UPLO = 'L' or 'l' A is a lower triangular matrix. |
| 19290 | |
| 19291 | Unchanged on exit. |
| 19292 | |
| 19293 | TRANSA - CHARACTER*1. |
| 19294 | On entry, TRANSA specifies the form of op( A ) to be used in |