From 1923c69f7e9857d19b67f9e9befd1b1f37c644ef Mon Sep 17 00:00:00 2001 From: julie Date: Thu, 10 Mar 2011 19:09:21 +0000 Subject: Formating code, use of * for comment, and follow other LAPACK style --- SRC/slarrv.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'SRC/slarrv.f') diff --git a/SRC/slarrv.f b/SRC/slarrv.f index b24e5f8c..a59cd945 100644 --- a/SRC/slarrv.f +++ b/SRC/slarrv.f @@ -332,7 +332,7 @@ * high relative accuracy is required for the computation of the * corresponding eigenvectors. CALL SCOPY( IM, W( WBEGIN ), 1, - & WORK( WBEGIN ), 1 ) + $ WORK( WBEGIN ), 1 ) * We store in W the eigenvalue approximations w.r.t. the original * matrix T. @@ -431,7 +431,7 @@ Q = INDEXW( WBEGIN-1+OLDLST ) * Offset for the arrays WORK, WGAP and WERR, i.e., the P-OFFSET * through the Q-OFFSET elements of these arrays are to be used. -C OFFSET = P-OLDFST +* OFFSET = P-OLDFST OFFSET = INDEXW( WBEGIN ) - 1 * perform limited bisection (if necessary) to get approximate * eigenvalues to the precision needed. @@ -570,7 +570,7 @@ C OFFSET = P-OLDFST * Compute RRR of child cluster. * Note that the new RRR is stored in Z * -C SLARRF needs LWORK = 2*N +* SLARRF needs LWORK = 2*N CALL SLARRF( IN, D( IBEGIN ), L( IBEGIN ), $ WORK(INDLD+IBEGIN-1), $ NEWFST, NEWLST, WORK(WBEGIN), -- cgit v1.2.3