Subroutine */
| 9227 | } /* zlacpy_ */ |
| 9228 | |
| 9229 | /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, |
| 9230 | integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, |
| 9231 | integer *ldc, doublereal *rwork) |
| 9232 | { |
| 9233 | /* System generated locals */ |
| 9234 | integer b_dim1, b_offset, a_dim1, a_offset, c_dim1, c_offset, i__1, i__2, |
| 9235 | i__3, i__4, i__5; |
| 9236 | doublereal d__1; |
| 9237 | doublecomplex z__1; |
| 9238 | |
| 9239 | /* Local variables */ |
| 9240 | static integer i__, j, l; |
| 9241 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 9242 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 9243 | integer *, doublereal *, doublereal *, integer *); |
| 9244 | |
| 9245 | |
| 9246 | /* |
| 9247 | -- LAPACK auxiliary routine (version 3.2) -- |
| 9248 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 9249 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 9250 | November 2006 |
| 9251 | |
| 9252 | |
| 9253 | Purpose |
| 9254 | ======= |
| 9255 | |
| 9256 | ZLACRM performs a very simple matrix-matrix multiplication: |
| 9257 | C := A * B, |
| 9258 | where A is M by N and complex; B is N by N and real; |
| 9259 | C is M by N and complex. |
| 9260 | |
| 9261 | Arguments |
| 9262 | ========= |
| 9263 | |
| 9264 | M (input) INTEGER |
| 9265 | The number of rows of the matrix A and of the matrix C. |
| 9266 | M >= 0. |
| 9267 | |
| 9268 | N (input) INTEGER |
| 9269 | The number of columns and rows of the matrix B and |
| 9270 | the number of columns of the matrix C. |
| 9271 | N >= 0. |
| 9272 | |
| 9273 | A (input) COMPLEX*16 array, dimension (LDA, N) |
| 9274 | A contains the M by N matrix A. |
| 9275 | |
| 9276 | LDA (input) INTEGER |
| 9277 | The leading dimension of the array A. LDA >=max(1,M). |
| 9278 | |
| 9279 | B (input) DOUBLE PRECISION array, dimension (LDB, N) |
| 9280 | B contains the N by N matrix B. |
| 9281 | |
| 9282 | LDB (input) INTEGER |
| 9283 | The leading dimension of the array B. LDB >=max(1,N). |
| 9284 | |
| 9285 | C (input) COMPLEX*16 array, dimension (LDC, N) |
| 9286 | C contains the M by N matrix C. |