diff options
Diffstat (limited to 'SRC/sggsvd.f')
| -rw-r--r-- | SRC/sggsvd.f | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/SRC/sggsvd.f b/SRC/sggsvd.f index 9b0fc544..08633242 100644 --- a/SRC/sggsvd.f +++ b/SRC/sggsvd.f @@ -170,8 +170,7 @@ *> \param[out] L *> \verbatim *> L is INTEGER -*> \endverbatim -*> \verbatim +*> *> On exit, K and L specify the dimension of the subblocks *> described in Purpose. *> K + L = effective numerical rank of (A**T,B**T)**T. @@ -213,8 +212,7 @@ *> \param[out] BETA *> \verbatim *> BETA is REAL array, dimension (N) -*> \endverbatim -*> \verbatim +*> *> On exit, ALPHA and BETA contain the generalized singular *> value pairs of A and B; *> ALPHA(1:K) = 1, @@ -296,12 +294,10 @@ *> < 0: if INFO = -i, the i-th argument had an illegal value. *> > 0: if INFO = 1, the Jacobi-type procedure failed to *> converge. For further details, see subroutine STGSJA. -*> \endverbatim -*> \verbatim +*> *> Internal Parameters *> =================== -*> \endverbatim -*> \verbatim +*> *> TOLA REAL *> TOLB REAL *> TOLA and TOLB are the thresholds to determine the effective |