diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
| commit | 1923c69f7e9857d19b67f9e9befd1b1f37c644ef (patch) | |
| tree | a0729e3779db5c74c0dcda417a0d6eff5c8b3f95 /SRC/zheevr.f | |
| parent | 86579dddaf0142000a291a7fdac0850278b56317 (diff) | |
Formating code, use of * for comment, and follow other LAPACK style
Diffstat (limited to 'SRC/zheevr.f')
| -rw-r--r-- | SRC/zheevr.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/SRC/zheevr.f b/SRC/zheevr.f index a127bf14..e97ef0fa 100644 --- a/SRC/zheevr.f +++ b/SRC/zheevr.f @@ -92,8 +92,8 @@ * = 'V': all eigenvalues in the half-open interval (VL,VU] * will be found. * = 'I': the IL-th through IU-th eigenvalues will be found. -********** For RANGE = 'V' or 'I' and IU - IL < N - 1, DSTEBZ and -********** ZSTEIN are called +* For RANGE = 'V' or 'I' and IU - IL < N - 1, DSTEBZ and +* ZSTEIN are called * * UPLO (input) CHARACTER*1 * = 'U': Upper triangle of A is stored; @@ -183,7 +183,7 @@ * indicating the nonzero elements in Z. The i-th eigenvector * is nonzero only in elements ISUPPZ( 2*i-1 ) through * ISUPPZ( 2*i ). -********** Implemented only for RANGE = 'A' or 'I' and IU - IL = N - 1 +* Implemented only for RANGE = 'A' or 'I' and IU - IL = N - 1 * * WORK (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK)) * On exit, if INFO = 0, WORK(1) returns the optimal LWORK. @@ -204,7 +204,7 @@ * On exit, if INFO = 0, RWORK(1) returns the optimal * (and minimal) LRWORK. * -* LRWORK (input) INTEGER +* LRWORK (input) INTEGER * The length of the array RWORK. LRWORK >= max(1,24*N). * * If LRWORK = -1, then a workspace query is assumed; the @@ -217,7 +217,7 @@ * On exit, if INFO = 0, IWORK(1) returns the optimal * (and minimal) LIWORK. * -* LIWORK (input) INTEGER +* LIWORK (input) INTEGER * The dimension of the array IWORK. LIWORK >= max(1,10*N). * * If LIWORK = -1, then a workspace query is assumed; the @@ -242,7 +242,7 @@ * Jason Riedy, Computer Science Division, University of * California at Berkeley, USA * -* ===================================================================== +* ===================================================================== * * .. Parameters .. DOUBLE PRECISION ZERO, ONE, TWO |