Subroutine */
| 12092 | } /* sgemv_ */ |
| 12093 | |
| 12094 | /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x, |
| 12095 | integer *incx, real *y, integer *incy, real *a, integer *lda) |
| 12096 | { |
| 12097 | /* System generated locals */ |
| 12098 | integer a_dim1, a_offset, i__1, i__2; |
| 12099 | |
| 12100 | /* Local variables */ |
| 12101 | static integer i__, j, ix, jy, kx, info; |
| 12102 | static real temp; |
| 12103 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 12104 | |
| 12105 | |
| 12106 | /* |
| 12107 | Purpose |
| 12108 | ======= |
| 12109 | |
| 12110 | SGER performs the rank 1 operation |
| 12111 | |
| 12112 | A := alpha*x*y' + A, |
| 12113 | |
| 12114 | where alpha is a scalar, x is an m element vector, y is an n element |
| 12115 | vector and A is an m by n matrix. |
| 12116 | |
| 12117 | Arguments |
| 12118 | ========== |
| 12119 | |
| 12120 | M - INTEGER. |
| 12121 | On entry, M specifies the number of rows of the matrix A. |
| 12122 | M must be at least zero. |
| 12123 | Unchanged on exit. |
| 12124 | |
| 12125 | N - INTEGER. |
| 12126 | On entry, N specifies the number of columns of the matrix A. |
| 12127 | N must be at least zero. |
| 12128 | Unchanged on exit. |
| 12129 | |
| 12130 | ALPHA - REAL . |
| 12131 | On entry, ALPHA specifies the scalar alpha. |
| 12132 | Unchanged on exit. |
| 12133 | |
| 12134 | X - REAL array of dimension at least |
| 12135 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 12136 | Before entry, the incremented array X must contain the m |
| 12137 | element vector x. |
| 12138 | Unchanged on exit. |
| 12139 | |
| 12140 | INCX - INTEGER. |
| 12141 | On entry, INCX specifies the increment for the elements of |
| 12142 | X. INCX must not be zero. |
| 12143 | Unchanged on exit. |
| 12144 | |
| 12145 | Y - REAL array of dimension at least |
| 12146 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 12147 | Before entry, the incremented array Y must contain the n |
| 12148 | element vector y. |
| 12149 | Unchanged on exit. |
| 12150 | |
| 12151 | INCY - INTEGER. |