diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
| commit | d5c30c90bdecf38da1064e2ed52583634573e741 (patch) | |
| tree | 480fc5ff31ee14b83116b6428aad79ea6e89362d /SRC/dlaset.f | |
| parent | 04670a68760fa27333f8bcef8172f71adc6880ef (diff) | |
Never say never...
Diffstat (limited to 'SRC/dlaset.f')
| -rw-r--r-- | SRC/dlaset.f | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/SRC/dlaset.f b/SRC/dlaset.f index 873b4db5..12468694 100644 --- a/SRC/dlaset.f +++ b/SRC/dlaset.f @@ -82,13 +82,11 @@ *> \verbatim *> A is DOUBLE PRECISION array, dimension (LDA,N) *> On exit, the leading m-by-n submatrix of A is set as follows: -*> \endverbatim -*> \verbatim +*> *> if UPLO = 'U', A(i,j) = ALPHA, 1<=i<=j-1, 1<=j<=n, *> if UPLO = 'L', A(i,j) = ALPHA, j+1<=i<=m, 1<=j<=n, *> otherwise, A(i,j) = ALPHA, 1<=i<=m, 1<=j<=n, i.ne.j, -*> \endverbatim -*> \verbatim +*> *> and, for all UPLO, A(i,i) = BETA, 1<=i<=min(m,n). *> \endverbatim *> |