summaryrefslogtreecommitdiff
path: root/SRC
diff options
context:
space:
mode:
authorIchitaro Yamazaki <iyamazak@bunsen.icl.utk.edu>2017-06-11 22:05:09 -0400
committerIchitaro Yamazaki <iyamazak@bunsen.icl.utk.edu>2017-06-11 22:05:09 -0400
commitd7e47377bf09945f73462961bdd4604d6547b123 (patch)
treef19d37737798b537cec37f3198f06b261c7d29a2 /SRC
parent99acde87ecf9e8edf6d2a2a074efa1b09414fb48 (diff)
downloadlapack-d7e47377bf09945f73462961bdd4604d6547b123.tar.gz
lapack-d7e47377bf09945f73462961bdd4604d6547b123.tar.bz2
lapack-d7e47377bf09945f73462961bdd4604d6547b123.zip
fixing comments.
Diffstat (limited to 'SRC')
-rw-r--r--SRC/chetrf_aa.f2
-rw-r--r--SRC/csytrf_aa.f2
-rw-r--r--SRC/dsytrf_aa.f2
-rw-r--r--SRC/ssytrf_aa.f2
-rw-r--r--SRC/zhetrf_aa.f8
-rw-r--r--SRC/zsytrf_aa.f8
6 files changed, 8 insertions, 16 deletions
diff --git a/SRC/chetrf_aa.f b/SRC/chetrf_aa.f
index d1357e15..bed227f3 100644
--- a/SRC/chetrf_aa.f
+++ b/SRC/chetrf_aa.f
@@ -214,7 +214,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N
diff --git a/SRC/csytrf_aa.f b/SRC/csytrf_aa.f
index 2eb2e822..b5f91415 100644
--- a/SRC/csytrf_aa.f
+++ b/SRC/csytrf_aa.f
@@ -213,7 +213,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N
diff --git a/SRC/dsytrf_aa.f b/SRC/dsytrf_aa.f
index 1fabc235..174c0450 100644
--- a/SRC/dsytrf_aa.f
+++ b/SRC/dsytrf_aa.f
@@ -213,7 +213,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N
diff --git a/SRC/ssytrf_aa.f b/SRC/ssytrf_aa.f
index d9684b05..6550a7ca 100644
--- a/SRC/ssytrf_aa.f
+++ b/SRC/ssytrf_aa.f
@@ -213,7 +213,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N
diff --git a/SRC/zhetrf_aa.f b/SRC/zhetrf_aa.f
index 7e1c7a55..4196d477 100644
--- a/SRC/zhetrf_aa.f
+++ b/SRC/zhetrf_aa.f
@@ -114,11 +114,7 @@
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
-*> < 0: if INFO = -i, the i-th argument had an illegal value
-*> > 0: if INFO = i, D(i,i) is exactly zero. The factorization
-*> has been completed, but the block diagonal matrix D is
-*> exactly singular, and division by zero will occur if it
-*> is used to solve a system of equations.
+*> < 0: if INFO = -i, the i-th argument had an illegal value.
*> \endverbatim
*
* Authors:
@@ -218,7 +214,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N
diff --git a/SRC/zsytrf_aa.f b/SRC/zsytrf_aa.f
index bb832fc4..269f664f 100644
--- a/SRC/zsytrf_aa.f
+++ b/SRC/zsytrf_aa.f
@@ -114,11 +114,7 @@
*> \verbatim
*> INFO is INTEGER
*> = 0: successful exit
-*> < 0: if INFO = -i, the i-th argument had an illegal value
-*> > 0: if INFO = i, D(i,i) is exactly zero. The factorization
-*> has been completed, but the block diagonal matrix D is
-*> exactly singular, and division by zero will occur if it
-*> is used to solve a system of equations.
+*> < 0: if INFO = -i, the i-th argument had an illegal value.
*> \endverbatim
*
* Authors:
@@ -217,7 +213,7 @@
RETURN
END IF
*
-* Adjubst block size based on the workspace size
+* Adjust block size based on the workspace size
*
IF( LWORK.LT.((1+NB)*N) ) THEN
NB = ( LWORK-N ) / N