Subroutine */
| 16703 | } /* zgemv_ */ |
| 16704 | |
| 16705 | /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha, |
| 16706 | doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, |
| 16707 | doublecomplex *a, integer *lda) |
| 16708 | { |
| 16709 | /* System generated locals */ |
| 16710 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 16711 | doublecomplex z__1, z__2; |
| 16712 | |
| 16713 | /* Local variables */ |
| 16714 | static integer i__, j, ix, jy, kx, info; |
| 16715 | static doublecomplex temp; |
| 16716 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 16717 | |
| 16718 | |
| 16719 | /* |
| 16720 | Purpose |
| 16721 | ======= |
| 16722 | |
| 16723 | ZGERC performs the rank 1 operation |
| 16724 | |
| 16725 | A := alpha*x*conjg( y' ) + A, |
| 16726 | |
| 16727 | where alpha is a scalar, x is an m element vector, y is an n element |
| 16728 | vector and A is an m by n matrix. |
| 16729 | |
| 16730 | Arguments |
| 16731 | ========== |
| 16732 | |
| 16733 | M - INTEGER. |
| 16734 | On entry, M specifies the number of rows of the matrix A. |
| 16735 | M must be at least zero. |
| 16736 | Unchanged on exit. |
| 16737 | |
| 16738 | N - INTEGER. |
| 16739 | On entry, N specifies the number of columns of the matrix A. |
| 16740 | N must be at least zero. |
| 16741 | Unchanged on exit. |
| 16742 | |
| 16743 | ALPHA - COMPLEX*16 . |
| 16744 | On entry, ALPHA specifies the scalar alpha. |
| 16745 | Unchanged on exit. |
| 16746 | |
| 16747 | X - COMPLEX*16 array of dimension at least |
| 16748 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 16749 | Before entry, the incremented array X must contain the m |
| 16750 | element vector x. |
| 16751 | Unchanged on exit. |
| 16752 | |
| 16753 | INCX - INTEGER. |
| 16754 | On entry, INCX specifies the increment for the elements of |
| 16755 | X. INCX must not be zero. |
| 16756 | Unchanged on exit. |
| 16757 | |
| 16758 | Y - COMPLEX*16 array of dimension at least |
| 16759 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 16760 | Before entry, the incremented array Y must contain the n |
| 16761 | element vector y. |
| 16762 | Unchanged on exit. |