Subroutine */
| 17095 | } /* zgeru_ */ |
| 17096 | |
| 17097 | /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha, |
| 17098 | doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, |
| 17099 | doublecomplex *beta, doublecomplex *y, integer *incy) |
| 17100 | { |
| 17101 | /* System generated locals */ |
| 17102 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 17103 | doublereal d__1; |
| 17104 | doublecomplex z__1, z__2, z__3, z__4; |
| 17105 | |
| 17106 | /* Local variables */ |
| 17107 | static integer i__, j, ix, iy, jx, jy, kx, ky, info; |
| 17108 | static doublecomplex temp1, temp2; |
| 17109 | extern logical lsame_(char *, char *); |
| 17110 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 17111 | |
| 17112 | |
| 17113 | /* |
| 17114 | Purpose |
| 17115 | ======= |
| 17116 | |
| 17117 | ZHEMV performs the matrix-vector operation |
| 17118 | |
| 17119 | y := alpha*A*x + beta*y, |
| 17120 | |
| 17121 | where alpha and beta are scalars, x and y are n element vectors and |
| 17122 | A is an n by n hermitian matrix. |
| 17123 | |
| 17124 | Arguments |
| 17125 | ========== |
| 17126 | |
| 17127 | UPLO - CHARACTER*1. |
| 17128 | On entry, UPLO specifies whether the upper or lower |
| 17129 | triangular part of the array A is to be referenced as |
| 17130 | follows: |
| 17131 | |
| 17132 | UPLO = 'U' or 'u' Only the upper triangular part of A |
| 17133 | is to be referenced. |
| 17134 | |
| 17135 | UPLO = 'L' or 'l' Only the lower triangular part of A |
| 17136 | is to be referenced. |
| 17137 | |
| 17138 | Unchanged on exit. |
| 17139 | |
| 17140 | N - INTEGER. |
| 17141 | On entry, N specifies the order of the matrix A. |
| 17142 | N must be at least zero. |
| 17143 | Unchanged on exit. |
| 17144 | |
| 17145 | ALPHA - COMPLEX*16 . |
| 17146 | On entry, ALPHA specifies the scalar alpha. |
| 17147 | Unchanged on exit. |
| 17148 | |
| 17149 | A - COMPLEX*16 array of DIMENSION ( LDA, n ). |
| 17150 | Before entry with UPLO = 'U' or 'u', the leading n by n |
| 17151 | upper triangular part of the array A must contain the upper |
| 17152 | triangular part of the hermitian matrix and the strictly |
| 17153 | lower triangular part of A is not referenced. |
| 17154 | Before entry with UPLO = 'L' or 'l', the leading n by n |