diff options
Diffstat (limited to 'SRC/sgegv.f')
| -rw-r--r-- | SRC/sgegv.f | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/SRC/sgegv.f b/SRC/sgegv.f index 6830dfc3..435316b7 100644 --- a/SRC/sgegv.f +++ b/SRC/sgegv.f @@ -171,8 +171,7 @@ *> u(j) = VL(:,j) + i*VL(:,j+1) *> and *> u(j+1) = VL(:,j) - i*VL(:,j+1). -*> \endverbatim -*> \verbatim +*> *> Each eigenvector is scaled so that its largest component has *> abs(real part) + abs(imag. part) = 1, except for eigenvectors *> corresponding to an eigenvalue with alpha = beta = 0, which @@ -198,8 +197,7 @@ *> x(j) = VR(:,j) + i*VR(:,j+1) *> and *> x(j+1) = VR(:,j) - i*VR(:,j+1). -*> \endverbatim -*> \verbatim +*> *> Each eigenvector is scaled so that its largest component has *> abs(real part) + abs(imag. part) = 1, except for eigenvalues *> corresponding to an eigenvalue with alpha = beta = 0, which @@ -230,8 +228,7 @@ *> NB -- MAX of the blocksizes for SGEQRF, SORMQR, and SORGQR; *> The optimal LWORK is: *> 2*N + MAX( 6*N, N*(NB+1) ). -*> \endverbatim -*> \verbatim +*> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns *> this value as the first entry of the WORK array, and no error |