diff options
| author | langou <julien.langou@ucdenver.edu> | 2016-12-29 21:26:48 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-12-29 21:26:48 +0100 |
| commit | 663bdbf4e150d521ac0bee4a125e28715d70e714 (patch) | |
| tree | c89d48cd14c7721811fd1c7197b729a72221e1ac /SRC/ssytri_3x.f | |
| parent | 7ca543cf4361480238f4b67ad1ac4269fb617e0e (diff) | |
| parent | 6c3b79b35e83df36e30bd2ceadc9b927a3287740 (diff) | |
Merge pull request #104 from sebastien-villemot/master
Patches applied to Debian package for LAPACK 3.7.0
Diffstat (limited to 'SRC/ssytri_3x.f')
| -rw-r--r-- | SRC/ssytri_3x.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/ssytri_3x.f b/SRC/ssytri_3x.f index 237c79b7..09c9f939 100644 --- a/SRC/ssytri_3x.f +++ b/SRC/ssytri_3x.f @@ -99,7 +99,7 @@ *> On entry, contains the superdiagonal (or subdiagonal) *> elements of the symmetric block diagonal matrix D *> with 1-by-1 or 2-by-2 diagonal blocks, where -*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not refernced; +*> If UPLO = 'U': E(i) = D(i-1,i), i=2:N, E(1) not referenced; *> If UPLO = 'L': E(i) = D(i+1,i), i=1:N-1, E(N) not referenced. *> *> NOTE: For 1-by-1 diagonal block D(k), where |