Subroutine */
| 20423 | } /* zlascl_ */ |
| 20424 | |
| 20425 | /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, |
| 20426 | doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer * |
| 20427 | lda) |
| 20428 | { |
| 20429 | /* System generated locals */ |
| 20430 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 20431 | |
| 20432 | /* Local variables */ |
| 20433 | static integer i__, j; |
| 20434 | extern logical lsame_(char *, char *); |
| 20435 | |
| 20436 | |
| 20437 | /* |
| 20438 | -- LAPACK auxiliary routine (version 3.2) -- |
| 20439 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 20440 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 20441 | November 2006 |
| 20442 | |
| 20443 | |
| 20444 | Purpose |
| 20445 | ======= |
| 20446 | |
| 20447 | ZLASET initializes a 2-D array A to BETA on the diagonal and |
| 20448 | ALPHA on the offdiagonals. |
| 20449 | |
| 20450 | Arguments |
| 20451 | ========= |
| 20452 | |
| 20453 | UPLO (input) CHARACTER*1 |
| 20454 | Specifies the part of the matrix A to be set. |
| 20455 | = 'U': Upper triangular part is set. The lower triangle |
| 20456 | is unchanged. |
| 20457 | = 'L': Lower triangular part is set. The upper triangle |
| 20458 | is unchanged. |
| 20459 | Otherwise: All of the matrix A is set. |
| 20460 | |
| 20461 | M (input) INTEGER |
| 20462 | On entry, M specifies the number of rows of A. |
| 20463 | |
| 20464 | N (input) INTEGER |
| 20465 | On entry, N specifies the number of columns of A. |
| 20466 | |
| 20467 | ALPHA (input) COMPLEX*16 |
| 20468 | All the offdiagonal array elements are set to ALPHA. |
| 20469 | |
| 20470 | BETA (input) COMPLEX*16 |
| 20471 | All the diagonal array elements are set to BETA. |
| 20472 | |
| 20473 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 20474 | On entry, the m by n matrix A. |
| 20475 | On exit, A(i,j) = ALPHA, 1 <= i <= m, 1 <= j <= n, i.ne.j; |
| 20476 | A(i,i) = BETA , 1 <= i <= min(m,n) |
| 20477 | |
| 20478 | LDA (input) INTEGER |
| 20479 | The leading dimension of the array A. LDA >= max(1,M). |
| 20480 | |
| 20481 | ===================================================================== |
| 20482 | */ |