diff options
| author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2017-06-11 22:05:09 -0400 |
|---|---|---|
| committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2017-06-11 22:05:09 -0400 |
| commit | d7e47377bf09945f73462961bdd4604d6547b123 (patch) | |
| tree | f19d37737798b537cec37f3198f06b261c7d29a2 | |
| parent | 99acde87ecf9e8edf6d2a2a074efa1b09414fb48 (diff) | |
| download | lapack-d7e47377bf09945f73462961bdd4604d6547b123.tar.gz lapack-d7e47377bf09945f73462961bdd4604d6547b123.tar.bz2 lapack-d7e47377bf09945f73462961bdd4604d6547b123.zip | |
fixing comments.
| -rw-r--r-- | SRC/chetrf_aa.f | 2 | ||||
| -rw-r--r-- | SRC/csytrf_aa.f | 2 | ||||
| -rw-r--r-- | SRC/dsytrf_aa.f | 2 | ||||
| -rw-r--r-- | SRC/ssytrf_aa.f | 2 | ||||
| -rw-r--r-- | SRC/zhetrf_aa.f | 8 | ||||
| -rw-r--r-- | SRC/zsytrf_aa.f | 8 |
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 |