Subroutine */
| 18291 | } /* zlarcm_ */ |
| 18292 | |
| 18293 | /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex |
| 18294 | *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer * |
| 18295 | ldc, doublecomplex *work) |
| 18296 | { |
| 18297 | /* System generated locals */ |
| 18298 | integer c_dim1, c_offset, i__1; |
| 18299 | doublecomplex z__1; |
| 18300 | |
| 18301 | /* Local variables */ |
| 18302 | static integer i__; |
| 18303 | static logical applyleft; |
| 18304 | extern logical lsame_(char *, char *); |
| 18305 | static integer lastc; |
| 18306 | extern /* Subroutine */ int zgerc_(integer *, integer *, doublecomplex *, |
| 18307 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 18308 | doublecomplex *, integer *), zgemv_(char *, integer *, integer *, |
| 18309 | doublecomplex *, doublecomplex *, integer *, doublecomplex *, |
| 18310 | integer *, doublecomplex *, doublecomplex *, integer *); |
| 18311 | static integer lastv; |
| 18312 | extern integer ilazlc_(integer *, integer *, doublecomplex *, integer *), |
| 18313 | ilazlr_(integer *, integer *, doublecomplex *, integer *); |
| 18314 | |
| 18315 | |
| 18316 | /* |
| 18317 | -- LAPACK auxiliary routine (version 3.2) -- |
| 18318 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 18319 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 18320 | November 2006 |
| 18321 | |
| 18322 | |
| 18323 | Purpose |
| 18324 | ======= |
| 18325 | |
| 18326 | ZLARF applies a complex elementary reflector H to a complex M-by-N |
| 18327 | matrix C, from either the left or the right. H is represented in the |
| 18328 | form |
| 18329 | |
| 18330 | H = I - tau * v * v' |
| 18331 | |
| 18332 | where tau is a complex scalar and v is a complex vector. |
| 18333 | |
| 18334 | If tau = 0, then H is taken to be the unit matrix. |
| 18335 | |
| 18336 | To apply H' (the conjugate transpose of H), supply conjg(tau) instead |
| 18337 | tau. |
| 18338 | |
| 18339 | Arguments |
| 18340 | ========= |
| 18341 | |
| 18342 | SIDE (input) CHARACTER*1 |
| 18343 | = 'L': form H * C |
| 18344 | = 'R': form C * H |
| 18345 | |
| 18346 | M (input) INTEGER |
| 18347 | The number of rows of the matrix C. |
| 18348 | |
| 18349 | N (input) INTEGER |
| 18350 | The number of columns of the matrix C. |
no test coverage detected