Subroutine */
| 9283 | } /* dsyrk_ */ |
| 9284 | |
| 9285 | /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, |
| 9286 | integer *m, integer *n, doublereal *alpha, doublereal *a, integer * |
| 9287 | lda, doublereal *b, integer *ldb) |
| 9288 | { |
| 9289 | /* System generated locals */ |
| 9290 | integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3; |
| 9291 | |
| 9292 | /* Local variables */ |
| 9293 | static integer i__, j, k, info; |
| 9294 | static doublereal temp; |
| 9295 | static logical lside; |
| 9296 | extern logical lsame_(char *, char *); |
| 9297 | static integer nrowa; |
| 9298 | static logical upper; |
| 9299 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 9300 | static logical nounit; |
| 9301 | |
| 9302 | |
| 9303 | /* |
| 9304 | Purpose |
| 9305 | ======= |
| 9306 | |
| 9307 | DTRMM performs one of the matrix-matrix operations |
| 9308 | |
| 9309 | B := alpha*op( A )*B, or B := alpha*B*op( A ), |
| 9310 | |
| 9311 | where alpha is a scalar, B is an m by n matrix, A is a unit, or |
| 9312 | non-unit, upper or lower triangular matrix and op( A ) is one of |
| 9313 | |
| 9314 | op( A ) = A or op( A ) = A'. |
| 9315 | |
| 9316 | Arguments |
| 9317 | ========== |
| 9318 | |
| 9319 | SIDE - CHARACTER*1. |
| 9320 | On entry, SIDE specifies whether op( A ) multiplies B from |
| 9321 | the left or right as follows: |
| 9322 | |
| 9323 | SIDE = 'L' or 'l' B := alpha*op( A )*B. |
| 9324 | |
| 9325 | SIDE = 'R' or 'r' B := alpha*B*op( A ). |
| 9326 | |
| 9327 | Unchanged on exit. |
| 9328 | |
| 9329 | UPLO - CHARACTER*1. |
| 9330 | On entry, UPLO specifies whether the matrix A is an upper or |
| 9331 | lower triangular matrix as follows: |
| 9332 | |
| 9333 | UPLO = 'U' or 'u' A is an upper triangular matrix. |
| 9334 | |
| 9335 | UPLO = 'L' or 'l' A is a lower triangular matrix. |
| 9336 | |
| 9337 | Unchanged on exit. |
| 9338 | |
| 9339 | TRANSA - CHARACTER*1. |
| 9340 | On entry, TRANSA specifies the form of op( A ) to be used in |
| 9341 | the matrix multiplication as follows: |
| 9342 |