Subroutine */
| 12601 | } /* sswap_ */ |
| 12602 | |
| 12603 | /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a, |
| 12604 | integer *lda, real *x, integer *incx, real *beta, real *y, integer * |
| 12605 | incy) |
| 12606 | { |
| 12607 | /* System generated locals */ |
| 12608 | integer a_dim1, a_offset, i__1, i__2; |
| 12609 | |
| 12610 | /* Local variables */ |
| 12611 | static integer i__, j, ix, iy, jx, jy, kx, ky, info; |
| 12612 | static real temp1, temp2; |
| 12613 | extern logical lsame_(char *, char *); |
| 12614 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 12615 | |
| 12616 | |
| 12617 | /* |
| 12618 | Purpose |
| 12619 | ======= |
| 12620 | |
| 12621 | SSYMV performs the matrix-vector operation |
| 12622 | |
| 12623 | y := alpha*A*x + beta*y, |
| 12624 | |
| 12625 | where alpha and beta are scalars, x and y are n element vectors and |
| 12626 | A is an n by n symmetric matrix. |
| 12627 | |
| 12628 | Arguments |
| 12629 | ========== |
| 12630 | |
| 12631 | UPLO - CHARACTER*1. |
| 12632 | On entry, UPLO specifies whether the upper or lower |
| 12633 | triangular part of the array A is to be referenced as |
| 12634 | follows: |
| 12635 | |
| 12636 | UPLO = 'U' or 'u' Only the upper triangular part of A |
| 12637 | is to be referenced. |
| 12638 | |
| 12639 | UPLO = 'L' or 'l' Only the lower triangular part of A |
| 12640 | is to be referenced. |
| 12641 | |
| 12642 | Unchanged on exit. |
| 12643 | |
| 12644 | N - INTEGER. |
| 12645 | On entry, N specifies the order of the matrix A. |
| 12646 | N must be at least zero. |
| 12647 | Unchanged on exit. |
| 12648 | |
| 12649 | ALPHA - REAL . |
| 12650 | On entry, ALPHA specifies the scalar alpha. |
| 12651 | Unchanged on exit. |
| 12652 | |
| 12653 | A - REAL array of DIMENSION ( LDA, n ). |
| 12654 | Before entry with UPLO = 'U' or 'u', the leading n by n |
| 12655 | upper triangular part of the array A must contain the upper |
| 12656 | triangular part of the symmetric matrix and the strictly |
| 12657 | lower triangular part of A is not referenced. |
| 12658 | Before entry with UPLO = 'L' or 'l', the leading n by n |
| 12659 | lower triangular part of the array A must contain the lower |
| 12660 | triangular part of the symmetric matrix and the strictly |