diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
| commit | d5c30c90bdecf38da1064e2ed52583634573e741 (patch) | |
| tree | 480fc5ff31ee14b83116b6428aad79ea6e89362d /SRC/chpgvd.f | |
| parent | 04670a68760fa27333f8bcef8172f71adc6880ef (diff) | |
Never say never...
Diffstat (limited to 'SRC/chpgvd.f')
| -rw-r--r-- | SRC/chpgvd.f | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/SRC/chpgvd.f b/SRC/chpgvd.f index a0623cca..b873f5a5 100644 --- a/SRC/chpgvd.f +++ b/SRC/chpgvd.f @@ -93,8 +93,7 @@ *> is stored in the array AP as follows: *> if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j; *> if UPLO = 'L', AP(i + (j-1)*(2*n-j)/2) = A(i,j) for j<=i<=n. -*> \endverbatim -*> \verbatim +*> *> On exit, the contents of AP are destroyed. *> \endverbatim *> @@ -106,8 +105,7 @@ *> is stored in the array BP as follows: *> if UPLO = 'U', BP(i + (j-1)*j/2) = B(i,j) for 1<=i<=j; *> if UPLO = 'L', BP(i + (j-1)*(2*n-j)/2) = B(i,j) for j<=i<=n. -*> \endverbatim -*> \verbatim +*> *> On exit, the triangular factor U or L from the Cholesky *> factorization B = U**H*U or B = L*L**H, in the same storage *> format as B. @@ -149,8 +147,7 @@ *> If N <= 1, LWORK >= 1. *> If JOBZ = 'N' and N > 1, LWORK >= N. *> If JOBZ = 'V' and N > 1, LWORK >= 2*N. -*> \endverbatim -*> \verbatim +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the required sizes of the WORK, RWORK and *> IWORK arrays, returns these values as the first entries of @@ -171,8 +168,7 @@ *> If N <= 1, LRWORK >= 1. *> If JOBZ = 'N' and N > 1, LRWORK >= N. *> If JOBZ = 'V' and N > 1, LRWORK >= 1 + 5*N + 2*N**2. -*> \endverbatim -*> \verbatim +*> *> If LRWORK = -1, then a workspace query is assumed; the *> routine only calculates the required sizes of the WORK, RWORK *> and IWORK arrays, returns these values as the first entries @@ -192,8 +188,7 @@ *> The dimension of array IWORK. *> If JOBZ = 'N' or N <= 1, LIWORK >= 1. *> If JOBZ = 'V' and N > 1, LIWORK >= 3 + 5*N. -*> \endverbatim -*> \verbatim +*> *> If LIWORK = -1, then a workspace query is assumed; the *> routine only calculates the required sizes of the WORK, RWORK *> and IWORK arrays, returns these values as the first entries |