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/slaset.f | |
parent | 04670a68760fa27333f8bcef8172f71adc6880ef (diff) | |
download | lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.gz lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.bz2 lapack-d5c30c90bdecf38da1064e2ed52583634573e741.zip |
Never say never...
Diffstat (limited to 'SRC/slaset.f')
-rw-r--r-- | SRC/slaset.f | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/SRC/slaset.f b/SRC/slaset.f index 9532c444..ff5820e9 100644 --- a/SRC/slaset.f +++ b/SRC/slaset.f @@ -82,13 +82,11 @@ *> \verbatim *> A is REAL 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 *> |