Subroutine */
| 15439 | } /* zdotu_ */ |
| 15440 | |
| 15441 | /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, |
| 15442 | doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s) |
| 15443 | { |
| 15444 | /* System generated locals */ |
| 15445 | integer i__1, i__2, i__3, i__4; |
| 15446 | doublecomplex z__1, z__2, z__3; |
| 15447 | |
| 15448 | /* Local variables */ |
| 15449 | static integer i__, ix, iy; |
| 15450 | static doublecomplex ctemp; |
| 15451 | |
| 15452 | |
| 15453 | /* |
| 15454 | Purpose |
| 15455 | ======= |
| 15456 | |
| 15457 | Applies a plane rotation, where the cos and sin (c and s) are real |
| 15458 | and the vectors cx and cy are complex. |
| 15459 | jack dongarra, linpack, 3/11/78. |
| 15460 | |
| 15461 | Arguments |
| 15462 | ========== |
| 15463 | |
| 15464 | N (input) INTEGER |
| 15465 | On entry, N specifies the order of the vectors cx and cy. |
| 15466 | N must be at least zero. |
| 15467 | Unchanged on exit. |
| 15468 | |
| 15469 | CX (input) COMPLEX*16 array, dimension at least |
| 15470 | ( 1 + ( N - 1 )*abs( INCX ) ). |
| 15471 | Before entry, the incremented array CX must contain the n |
| 15472 | element vector cx. On exit, CX is overwritten by the updated |
| 15473 | vector cx. |
| 15474 | |
| 15475 | INCX (input) INTEGER |
| 15476 | On entry, INCX specifies the increment for the elements of |
| 15477 | CX. INCX must not be zero. |
| 15478 | Unchanged on exit. |
| 15479 | |
| 15480 | CY (input) COMPLEX*16 array, dimension at least |
| 15481 | ( 1 + ( N - 1 )*abs( INCY ) ). |
| 15482 | Before entry, the incremented array CY must contain the n |
| 15483 | element vector cy. On exit, CY is overwritten by the updated |
| 15484 | vector cy. |
| 15485 | |
| 15486 | INCY (input) INTEGER |
| 15487 | On entry, INCY specifies the increment for the elements of |
| 15488 | CY. INCY must not be zero. |
| 15489 | Unchanged on exit. |
| 15490 | |
| 15491 | C (input) DOUBLE PRECISION |
| 15492 | On entry, C specifies the cosine, cos. |
| 15493 | Unchanged on exit. |
| 15494 | |
| 15495 | S (input) DOUBLE PRECISION |
| 15496 | On entry, S specifies the sine, sin. |
| 15497 | Unchanged on exit. |
| 15498 |