Subroutine */
| 16899 | } /* zgerc_ */ |
| 16900 | |
| 16901 | /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha, |
| 16902 | doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, |
| 16903 | doublecomplex *a, integer *lda) |
| 16904 | { |
| 16905 | /* System generated locals */ |
| 16906 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 16907 | doublecomplex z__1, z__2; |
| 16908 | |
| 16909 | /* Local variables */ |
| 16910 | static integer i__, j, ix, jy, kx, info; |
| 16911 | static doublecomplex temp; |
| 16912 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 16913 | |
| 16914 | |
| 16915 | /* |
| 16916 | Purpose |
| 16917 | ======= |
| 16918 | |
| 16919 | ZGERU performs the rank 1 operation |
| 16920 | |
| 16921 | A := alpha*x*y' + A, |
| 16922 | |
| 16923 | where alpha is a scalar, x is an m element vector, y is an n element |
| 16924 | vector and A is an m by n matrix. |
| 16925 | |
| 16926 | Arguments |
| 16927 | ========== |
| 16928 | |
| 16929 | M - INTEGER. |
| 16930 | On entry, M specifies the number of rows of the matrix A. |
| 16931 | M must be at least zero. |
| 16932 | Unchanged on exit. |
| 16933 | |
| 16934 | N - INTEGER. |
| 16935 | On entry, N specifies the number of columns of the matrix A. |
| 16936 | N must be at least zero. |
| 16937 | Unchanged on exit. |
| 16938 | |
| 16939 | ALPHA - COMPLEX*16 . |
| 16940 | On entry, ALPHA specifies the scalar alpha. |
| 16941 | Unchanged on exit. |
| 16942 | |
| 16943 | X - COMPLEX*16 array of dimension at least |
| 16944 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 16945 | Before entry, the incremented array X must contain the m |
| 16946 | element vector x. |
| 16947 | Unchanged on exit. |
| 16948 | |
| 16949 | INCX - INTEGER. |
| 16950 | On entry, INCX specifies the increment for the elements of |
| 16951 | X. INCX must not be zero. |
| 16952 | Unchanged on exit. |
| 16953 | |
| 16954 | Y - COMPLEX*16 array of dimension at least |
| 16955 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 16956 | Before entry, the incremented array Y must contain the n |
| 16957 | element vector y. |
| 16958 | Unchanged on exit. |