Subroutine */
| 28896 | } /* dlasdt_ */ |
| 28897 | |
| 28898 | /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal * |
| 28899 | alpha, doublereal *beta, doublereal *a, integer *lda) |
| 28900 | { |
| 28901 | /* System generated locals */ |
| 28902 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 28903 | |
| 28904 | /* Local variables */ |
| 28905 | static integer i__, j; |
| 28906 | extern logical lsame_(char *, char *); |
| 28907 | |
| 28908 | |
| 28909 | /* |
| 28910 | -- LAPACK auxiliary routine (version 3.2) -- |
| 28911 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 28912 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 28913 | November 2006 |
| 28914 | |
| 28915 | |
| 28916 | Purpose |
| 28917 | ======= |
| 28918 | |
| 28919 | DLASET initializes an m-by-n matrix A to BETA on the diagonal and |
| 28920 | ALPHA on the offdiagonals. |
| 28921 | |
| 28922 | Arguments |
| 28923 | ========= |
| 28924 | |
| 28925 | UPLO (input) CHARACTER*1 |
| 28926 | Specifies the part of the matrix A to be set. |
| 28927 | = 'U': Upper triangular part is set; the strictly lower |
| 28928 | triangular part of A is not changed. |
| 28929 | = 'L': Lower triangular part is set; the strictly upper |
| 28930 | triangular part of A is not changed. |
| 28931 | Otherwise: All of the matrix A is set. |
| 28932 | |
| 28933 | M (input) INTEGER |
| 28934 | The number of rows of the matrix A. M >= 0. |
| 28935 | |
| 28936 | N (input) INTEGER |
| 28937 | The number of columns of the matrix A. N >= 0. |
| 28938 | |
| 28939 | ALPHA (input) DOUBLE PRECISION |
| 28940 | The constant to which the offdiagonal elements are to be set. |
| 28941 | |
| 28942 | BETA (input) DOUBLE PRECISION |
| 28943 | The constant to which the diagonal elements are to be set. |
| 28944 | |
| 28945 | A (input/output) DOUBLE PRECISION array, dimension (LDA,N) |
| 28946 | On exit, the leading m-by-n submatrix of A is set as follows: |
| 28947 | |
| 28948 | if UPLO = 'U', A(i,j) = ALPHA, 1<=i<=j-1, 1<=j<=n, |
| 28949 | if UPLO = 'L', A(i,j) = ALPHA, j+1<=i<=m, 1<=j<=n, |
| 28950 | otherwise, A(i,j) = ALPHA, 1<=i<=m, 1<=j<=n, i.ne.j, |
| 28951 | |
| 28952 | and, for all UPLO, A(i,i) = BETA, 1<=i<=min(m,n). |
| 28953 | |
| 28954 | LDA (input) INTEGER |
| 28955 | The leading dimension of the array A. LDA >= max(1,M). |
no test coverage detected