Subroutine */
| 1619 | } /* cgerc_ */ |
| 1620 | |
| 1621 | /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex * |
| 1622 | x, integer *incx, complex *y, integer *incy, complex *a, integer *lda) |
| 1623 | { |
| 1624 | /* System generated locals */ |
| 1625 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 1626 | complex q__1, q__2; |
| 1627 | |
| 1628 | /* Local variables */ |
| 1629 | static integer i__, j, ix, jy, kx, info; |
| 1630 | static complex temp; |
| 1631 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 1632 | |
| 1633 | |
| 1634 | /* |
| 1635 | Purpose |
| 1636 | ======= |
| 1637 | |
| 1638 | CGERU performs the rank 1 operation |
| 1639 | |
| 1640 | A := alpha*x*y' + A, |
| 1641 | |
| 1642 | where alpha is a scalar, x is an m element vector, y is an n element |
| 1643 | vector and A is an m by n matrix. |
| 1644 | |
| 1645 | Arguments |
| 1646 | ========== |
| 1647 | |
| 1648 | M - INTEGER. |
| 1649 | On entry, M specifies the number of rows of the matrix A. |
| 1650 | M must be at least zero. |
| 1651 | Unchanged on exit. |
| 1652 | |
| 1653 | N - INTEGER. |
| 1654 | On entry, N specifies the number of columns of the matrix A. |
| 1655 | N must be at least zero. |
| 1656 | Unchanged on exit. |
| 1657 | |
| 1658 | ALPHA - COMPLEX . |
| 1659 | On entry, ALPHA specifies the scalar alpha. |
| 1660 | Unchanged on exit. |
| 1661 | |
| 1662 | X - COMPLEX array of dimension at least |
| 1663 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 1664 | Before entry, the incremented array X must contain the m |
| 1665 | element vector x. |
| 1666 | Unchanged on exit. |
| 1667 | |
| 1668 | INCX - INTEGER. |
| 1669 | On entry, INCX specifies the increment for the elements of |
| 1670 | X. INCX must not be zero. |
| 1671 | Unchanged on exit. |
| 1672 | |
| 1673 | Y - COMPLEX array of dimension at least |
| 1674 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 1675 | Before entry, the incremented array Y must contain the n |
| 1676 | element vector y. |
| 1677 | Unchanged on exit. |
| 1678 |