--- rpl/lapack/lapack/zggesx.f 2012/12/14 14:22:46 1.11
+++ rpl/lapack/lapack/zggesx.f 2023/08/07 08:39:20 1.19
@@ -2,18 +2,18 @@
*
* =========== 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/
*
*> \htmlonly
-*> Download ZGGESX + dependencies
-*>
-*> [TGZ]
-*>
-*> [ZIP]
-*>
+*> Download ZGGESX + dependencies
+*>
+*> [TGZ]
+*>
+*> [ZIP]
+*>
*> [TXT]
-*> \endhtmlonly
+*> \endhtmlonly
*
* Definition:
* ===========
@@ -22,7 +22,7 @@
* B, LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR,
* LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK,
* IWORK, LIWORK, BWORK, INFO )
-*
+*
* .. Scalar Arguments ..
* CHARACTER JOBVSL, JOBVSR, SENSE, SORT
* INTEGER INFO, LDA, LDB, LDVSL, LDVSR, LIWORK, LWORK, N,
@@ -40,7 +40,7 @@
* LOGICAL SELCTG
* EXTERNAL SELCTG
* ..
-*
+*
*
*> \par Purpose:
* =============
@@ -104,7 +104,7 @@
*>
*> \param[in] SELCTG
*> \verbatim
-*> SELCTG is procedure) LOGICAL FUNCTION of two COMPLEX*16 arguments
+*> SELCTG is a LOGICAL FUNCTION of two COMPLEX*16 arguments
*> SELCTG must be declared EXTERNAL in the calling subroutine.
*> If SORT = 'N', SELCTG is not referenced.
*> If SORT = 'S', SELCTG is used to select eigenvalues to sort
@@ -120,10 +120,10 @@
*> \verbatim
*> SENSE is CHARACTER*1
*> Determines which reciprocal condition numbers are computed.
-*> = 'N' : None are computed;
-*> = 'E' : Computed for average of selected eigenvalues only;
-*> = 'V' : Computed for selected deflating subspaces only;
-*> = 'B' : Computed for both.
+*> = 'N': None are computed;
+*> = 'E': Computed for average of selected eigenvalues only;
+*> = 'V': Computed for selected deflating subspaces only;
+*> = 'B': Computed for both.
*> If SENSE = 'E', 'V', or 'B', SORT must equal 'S'.
*> \endverbatim
*>
@@ -315,12 +315,10 @@
* Authors:
* ========
*
-*> \author Univ. of Tennessee
-*> \author Univ. of California Berkeley
-*> \author Univ. of Colorado Denver
-*> \author NAG Ltd.
-*
-*> \date November 2011
+*> \author Univ. of Tennessee
+*> \author Univ. of California Berkeley
+*> \author Univ. of Colorado Denver
+*> \author NAG Ltd.
*
*> \ingroup complex16GEeigen
*
@@ -330,10 +328,9 @@
$ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK,
$ IWORK, LIWORK, BWORK, INFO )
*
-* -- LAPACK driver routine (version 3.4.0) --
+* -- LAPACK driver routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-* November 2011
*
* .. Scalar Arguments ..
CHARACTER JOBVSL, JOBVSR, SENSE, SORT