Subroutine */
| 18146 | } /* zlaqr5_ */ |
| 18147 | |
| 18148 | /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer * |
| 18149 | lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, |
| 18150 | doublereal *rwork) |
| 18151 | { |
| 18152 | /* System generated locals */ |
| 18153 | integer a_dim1, a_offset, b_dim1, b_offset, c_dim1, c_offset, i__1, i__2, |
| 18154 | i__3, i__4, i__5; |
| 18155 | doublereal d__1; |
| 18156 | doublecomplex z__1; |
| 18157 | |
| 18158 | /* Local variables */ |
| 18159 | static integer i__, j, l; |
| 18160 | extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, |
| 18161 | integer *, doublereal *, doublereal *, integer *, doublereal *, |
| 18162 | integer *, doublereal *, doublereal *, integer *); |
| 18163 | |
| 18164 | |
| 18165 | /* |
| 18166 | -- LAPACK auxiliary routine (version 3.2) -- |
| 18167 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 18168 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 18169 | November 2006 |
| 18170 | |
| 18171 | |
| 18172 | Purpose |
| 18173 | ======= |
| 18174 | |
| 18175 | ZLARCM performs a very simple matrix-matrix multiplication: |
| 18176 | C := A * B, |
| 18177 | where A is M by M and real; B is M by N and complex; |
| 18178 | C is M by N and complex. |
| 18179 | |
| 18180 | Arguments |
| 18181 | ========= |
| 18182 | |
| 18183 | M (input) INTEGER |
| 18184 | The number of rows of the matrix A and of the matrix C. |
| 18185 | M >= 0. |
| 18186 | |
| 18187 | N (input) INTEGER |
| 18188 | The number of columns and rows of the matrix B and |
| 18189 | the number of columns of the matrix C. |
| 18190 | N >= 0. |
| 18191 | |
| 18192 | A (input) DOUBLE PRECISION array, dimension (LDA, M) |
| 18193 | A contains the M by M matrix A. |
| 18194 | |
| 18195 | LDA (input) INTEGER |
| 18196 | The leading dimension of the array A. LDA >=max(1,M). |
| 18197 | |
| 18198 | B (input) DOUBLE PRECISION array, dimension (LDB, N) |
| 18199 | B contains the M by N matrix B. |
| 18200 | |
| 18201 | LDB (input) INTEGER |
| 18202 | The leading dimension of the array B. LDB >=max(1,M). |
| 18203 | |
| 18204 | C (input) COMPLEX*16 array, dimension (LDC, N) |
| 18205 | C contains the M by N matrix C. |