diff options
-rw-r--r-- | SRC/cheevr.f | 2 | ||||
-rw-r--r-- | SRC/dsyevr.f | 2 | ||||
-rw-r--r-- | SRC/ssyevr.f | 2 | ||||
-rw-r--r-- | SRC/zheevr.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/SRC/cheevr.f b/SRC/cheevr.f index 8456838f..3db71bb0 100644 --- a/SRC/cheevr.f +++ b/SRC/cheevr.f @@ -579,7 +579,7 @@ * returns INFO > 0. INDIFL = INDISP + N * INDIWO is the offset of the remaining integer workspace. - INDIWO = INDISP + N + INDIWO = INDIFL + N * * Call CHETRD to reduce Hermitian matrix to tridiagonal form. diff --git a/SRC/dsyevr.f b/SRC/dsyevr.f index 2b930d00..b29d963a 100644 --- a/SRC/dsyevr.f +++ b/SRC/dsyevr.f @@ -539,7 +539,7 @@ * returns INFO > 0. INDIFL = INDISP + N * INDIWO is the offset of the remaining integer workspace. - INDIWO = INDISP + N + INDIWO = INDIFL + N * * Call DSYTRD to reduce symmetric matrix to tridiagonal form. diff --git a/SRC/ssyevr.f b/SRC/ssyevr.f index 7549b22a..3e63d06d 100644 --- a/SRC/ssyevr.f +++ b/SRC/ssyevr.f @@ -543,7 +543,7 @@ * returns INFO > 0. INDIFL = INDISP + N * INDIWO is the offset of the remaining integer workspace. - INDIWO = INDISP + N + INDIWO = INDIFL + N * * Call SSYTRD to reduce symmetric matrix to tridiagonal form. diff --git a/SRC/zheevr.f b/SRC/zheevr.f index 1a427163..71714839 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -579,7 +579,7 @@ * returns INFO > 0. INDIFL = INDISP + N * INDIWO is the offset of the remaining integer workspace. - INDIWO = INDISP + N + INDIWO = INDIFL + N * * Call ZHETRD to reduce Hermitian matrix to tridiagonal form. |