diff options
Diffstat (limited to 'TESTING/EIG/cget52.f')
-rw-r--r-- | TESTING/EIG/cget52.f | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/TESTING/EIG/cget52.f b/TESTING/EIG/cget52.f index fd558cd6..15eff0f0 100644 --- a/TESTING/EIG/cget52.f +++ b/TESTING/EIG/cget52.f @@ -2,15 +2,15 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * * Definition: * =========== * * SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, * WORK, RWORK, RESULT ) -* +* * .. Scalar Arguments .. * LOGICAL LEFT * INTEGER LDA, LDB, LDE, N @@ -20,7 +20,7 @@ * COMPLEX A( LDA, * ), ALPHA( * ), B( LDB, * ), * $ BETA( * ), E( LDE, * ), WORK( * ) * .. -* +* * *> \par Purpose: * ============= @@ -47,7 +47,7 @@ *> supposed to be normalized so that the maximum "absolute value" *> of its elements is 1, where in this case, "absolute value" *> of a complex value x is |Re(x)| + |Im(x)| ; let us call this -*> maximum "absolute value" norm of a vector v M(v). +*> maximum "absolute value" norm of a vector v M(v). *> if a(i)=b(i)=0, then the eigenvector is set to be the jth coordinate *> vector. The normalization test is: *> @@ -148,10 +148,10 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * *> \date November 2011 * |