From d5c30c90bdecf38da1064e2ed52583634573e741 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Tue, 1 Nov 2011 22:02:31 +0000
Subject: Never say never...

---
 SRC/chpgvd.f | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'SRC/chpgvd.f')

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
-- 
cgit v1.2.3