Subroutine */
| 1424 | } /* cgemv_ */ |
| 1425 | |
| 1426 | /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex * |
| 1427 | x, integer *incx, complex *y, integer *incy, complex *a, integer *lda) |
| 1428 | { |
| 1429 | /* System generated locals */ |
| 1430 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; |
| 1431 | complex q__1, q__2; |
| 1432 | |
| 1433 | /* Local variables */ |
| 1434 | static integer i__, j, ix, jy, kx, info; |
| 1435 | static complex temp; |
| 1436 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 1437 | |
| 1438 | |
| 1439 | /* |
| 1440 | Purpose |
| 1441 | ======= |
| 1442 | |
| 1443 | CGERC performs the rank 1 operation |
| 1444 | |
| 1445 | A := alpha*x*conjg( y' ) + A, |
| 1446 | |
| 1447 | where alpha is a scalar, x is an m element vector, y is an n element |
| 1448 | vector and A is an m by n matrix. |
| 1449 | |
| 1450 | Arguments |
| 1451 | ========== |
| 1452 | |
| 1453 | M - INTEGER. |
| 1454 | On entry, M specifies the number of rows of the matrix A. |
| 1455 | M must be at least zero. |
| 1456 | Unchanged on exit. |
| 1457 | |
| 1458 | N - INTEGER. |
| 1459 | On entry, N specifies the number of columns of the matrix A. |
| 1460 | N must be at least zero. |
| 1461 | Unchanged on exit. |
| 1462 | |
| 1463 | ALPHA - COMPLEX . |
| 1464 | On entry, ALPHA specifies the scalar alpha. |
| 1465 | Unchanged on exit. |
| 1466 | |
| 1467 | X - COMPLEX array of dimension at least |
| 1468 | ( 1 + ( m - 1 )*abs( INCX ) ). |
| 1469 | Before entry, the incremented array X must contain the m |
| 1470 | element vector x. |
| 1471 | Unchanged on exit. |
| 1472 | |
| 1473 | INCX - INTEGER. |
| 1474 | On entry, INCX specifies the increment for the elements of |
| 1475 | X. INCX must not be zero. |
| 1476 | Unchanged on exit. |
| 1477 | |
| 1478 | Y - COMPLEX array of dimension at least |
| 1479 | ( 1 + ( n - 1 )*abs( INCY ) ). |
| 1480 | Before entry, the incremented array Y must contain the n |
| 1481 | element vector y. |
| 1482 | Unchanged on exit. |
| 1483 |