Subroutine */
| 7491 | } /* dgemv_ */ |
| 7492 | |
| 7493 | /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, |
| 7494 | doublereal *x, integer *incx, doublereal *y, integer *incy, |
| 7495 | doublereal *a, integer *lda) |
| 7496 | { |
| 7497 | /* System generated locals */ |
| 7498 | integer a_dim1, a_offset, i__1, i__2; |
| 7499 | |
| 7500 | /* Local variables */ |
| 7501 | static integer i__, j, ix, jy, kx, info; |
| 7502 | static doublereal temp; |
| 7503 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 7504 | |
| 7505 | |
| 7506 | /* |
| 7507 | Purpose |
| 7508 | ======= |
| 7509 | |
| 7510 | DGER performs the rank 1 operation |
| 7511 | |
| 7512 | A := alpha*x*y' + A, |
| 7513 | |
| 7514 | where alpha is a scalar, x is an m element vector, y is an n element |
| 7515 | vector and A is an m by n matrix. |
| 7516 | |
| 7517 | Arguments |
| 7518 | ========== |
| 7519 | |
| 7520 | M - INTEGER. |
| 7521 | On entry, M specifies the number of rows of the matrix A. |
| 7522 | M must be at least zero. |
| 7523 | Unchanged on exit. |
| 7524 | |
| 7525 | N - INTEGER. |
| 7526 | On entry, N specifies the number of columns of the matrix A. |
| 7527 | N must be at least zero. |
| 7528 | Unchanged on exit. |
| 7529 | |
| 7530 | ALPHA - DOUBLE PRECISION. |
| 7531 | On entry, ALPHA specifies the scalar alpha. |
| 7532 | Unchanged on exit. |
| 7533 | |
| 7534 | X - DOUBLE PRECISION array of dimension at least |
| 7535 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 7536 | Before entry, the incremented array X must contain the m |
| 7537 | element vector x. |
| 7538 | Unchanged on exit. |
| 7539 | |
| 7540 | INCX - INTEGER. |
| 7541 | On entry, INCX specifies the increment for the elements of |
| 7542 | X. INCX must not be zero. |
| 7543 | Unchanged on exit. |
| 7544 | |
| 7545 | Y - DOUBLE PRECISION array of dimension at least |
| 7546 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 7547 | Before entry, the incremented array Y must contain the n |
| 7548 | element vector y. |
| 7549 | Unchanged on exit. |
| 7550 |