Subroutine */
| 20318 | } /* clascl_ */ |
| 20319 | |
| 20320 | /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex * |
| 20321 | alpha, complex *beta, complex *a, integer *lda) |
| 20322 | { |
| 20323 | /* System generated locals */ |
| 20324 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 20325 | |
| 20326 | /* Local variables */ |
| 20327 | static integer i__, j; |
| 20328 | extern logical lsame_(char *, char *); |
| 20329 | |
| 20330 | |
| 20331 | /* |
| 20332 | -- LAPACK auxiliary routine (version 3.2) -- |
| 20333 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 20334 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 20335 | November 2006 |
| 20336 | |
| 20337 | |
| 20338 | Purpose |
| 20339 | ======= |
| 20340 | |
| 20341 | CLASET initializes a 2-D array A to BETA on the diagonal and |
| 20342 | ALPHA on the offdiagonals. |
| 20343 | |
| 20344 | Arguments |
| 20345 | ========= |
| 20346 | |
| 20347 | UPLO (input) CHARACTER*1 |
| 20348 | Specifies the part of the matrix A to be set. |
| 20349 | = 'U': Upper triangular part is set. The lower triangle |
| 20350 | is unchanged. |
| 20351 | = 'L': Lower triangular part is set. The upper triangle |
| 20352 | is unchanged. |
| 20353 | Otherwise: All of the matrix A is set. |
| 20354 | |
| 20355 | M (input) INTEGER |
| 20356 | On entry, M specifies the number of rows of A. |
| 20357 | |
| 20358 | N (input) INTEGER |
| 20359 | On entry, N specifies the number of columns of A. |
| 20360 | |
| 20361 | ALPHA (input) COMPLEX |
| 20362 | All the offdiagonal array elements are set to ALPHA. |
| 20363 | |
| 20364 | BETA (input) COMPLEX |
| 20365 | All the diagonal array elements are set to BETA. |
| 20366 | |
| 20367 | A (input/output) COMPLEX array, dimension (LDA,N) |
| 20368 | On entry, the m by n matrix A. |
| 20369 | On exit, A(i,j) = ALPHA, 1 <= i <= m, 1 <= j <= n, i.ne.j; |
| 20370 | A(i,i) = BETA , 1 <= i <= min(m,n) |
| 20371 | |
| 20372 | LDA (input) INTEGER |
| 20373 | The leading dimension of the array A. LDA >= max(1,M). |
| 20374 | |
| 20375 | ===================================================================== |
| 20376 | */ |
| 20377 |