diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2017-06-03 17:43:08 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2017-06-03 17:43:08 +0200 |
| commit | 366f9b3541705231cfbb1724b221b8857ac768a8 (patch) | |
| tree | 56913e10857a572889a61f6efc9732745207350b | |
| parent | 9ff0c3d8dea5bc95f0e00039b0ceea516855e35f (diff) | |
| download | lapack-366f9b3541705231cfbb1724b221b8857ac768a8.tar.gz lapack-366f9b3541705231cfbb1724b221b8857ac768a8.tar.bz2 lapack-366f9b3541705231cfbb1724b221b8857ac768a8.zip | |
xUNCSD, xORCSD; U1, U2, V1T, V2T: duplicate dimensions of square matrices
| -rw-r--r-- | SRC/cuncsd.f | 8 | ||||
| -rw-r--r-- | SRC/dorcsd.f | 8 | ||||
| -rw-r--r-- | SRC/sorcsd.f | 8 | ||||
| -rw-r--r-- | SRC/zuncsd.f | 8 |
4 files changed, 16 insertions, 16 deletions
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 829c4bcf..a8637e35 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -188,7 +188,7 @@ *> *> \param[out] U1 *> \verbatim -*> U1 is COMPLEX array, dimension (P) +*> U1 is COMPLEX array, dimension (P,P) *> If JOBU1 = 'Y', U1 contains the P-by-P unitary matrix U1. *> \endverbatim *> @@ -201,7 +201,7 @@ *> *> \param[out] U2 *> \verbatim -*> U2 is COMPLEX array, dimension (M-P) +*> U2 is COMPLEX array, dimension (M-P,M-P) *> If JOBU2 = 'Y', U2 contains the (M-P)-by-(M-P) unitary *> matrix U2. *> \endverbatim @@ -215,7 +215,7 @@ *> *> \param[out] V1T *> \verbatim -*> V1T is COMPLEX array, dimension (Q) +*> V1T is COMPLEX array, dimension (Q,Q) *> If JOBV1T = 'Y', V1T contains the Q-by-Q matrix unitary *> matrix V1**H. *> \endverbatim @@ -229,7 +229,7 @@ *> *> \param[out] V2T *> \verbatim -*> V2T is COMPLEX array, dimension (M-Q) +*> V2T is COMPLEX array, dimension (M-Q,M-Q) *> If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) unitary *> matrix V2**H. *> \endverbatim diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index 340e16a5..34c1dbba 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -186,7 +186,7 @@ *> *> \param[out] U1 *> \verbatim -*> U1 is DOUBLE PRECISION array, dimension (P) +*> U1 is DOUBLE PRECISION array, dimension (P,P) *> If JOBU1 = 'Y', U1 contains the P-by-P orthogonal matrix U1. *> \endverbatim *> @@ -199,7 +199,7 @@ *> *> \param[out] U2 *> \verbatim -*> U2 is DOUBLE PRECISION array, dimension (M-P) +*> U2 is DOUBLE PRECISION array, dimension (M-P,M-P) *> If JOBU2 = 'Y', U2 contains the (M-P)-by-(M-P) orthogonal *> matrix U2. *> \endverbatim @@ -213,7 +213,7 @@ *> *> \param[out] V1T *> \verbatim -*> V1T is DOUBLE PRECISION array, dimension (Q) +*> V1T is DOUBLE PRECISION array, dimension (Q,Q) *> If JOBV1T = 'Y', V1T contains the Q-by-Q matrix orthogonal *> matrix V1**T. *> \endverbatim @@ -227,7 +227,7 @@ *> *> \param[out] V2T *> \verbatim -*> V2T is DOUBLE PRECISION array, dimension (M-Q) +*> V2T is DOUBLE PRECISION array, dimension (M-Q,M-Q) *> If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) orthogonal *> matrix V2**T. *> \endverbatim diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index 5621d58e..9694ef54 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -186,7 +186,7 @@ *> *> \param[out] U1 *> \verbatim -*> U1 is REAL array, dimension (P) +*> U1 is REAL array, dimension (P,P) *> If JOBU1 = 'Y', U1 contains the P-by-P orthogonal matrix U1. *> \endverbatim *> @@ -199,7 +199,7 @@ *> *> \param[out] U2 *> \verbatim -*> U2 is REAL array, dimension (M-P) +*> U2 is REAL array, dimension (M-P,M-P) *> If JOBU2 = 'Y', U2 contains the (M-P)-by-(M-P) orthogonal *> matrix U2. *> \endverbatim @@ -213,7 +213,7 @@ *> *> \param[out] V1T *> \verbatim -*> V1T is REAL array, dimension (Q) +*> V1T is REAL array, dimension (Q,Q) *> If JOBV1T = 'Y', V1T contains the Q-by-Q matrix orthogonal *> matrix V1**T. *> \endverbatim @@ -227,7 +227,7 @@ *> *> \param[out] V2T *> \verbatim -*> V2T is REAL array, dimension (M-Q) +*> V2T is REAL array, dimension (M-Q,M-Q) *> If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) orthogonal *> matrix V2**T. *> \endverbatim diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 77a83c09..18dce987 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -188,7 +188,7 @@ *> *> \param[out] U1 *> \verbatim -*> U1 is COMPLEX*16 array, dimension (P) +*> U1 is COMPLEX*16 array, dimension (P,P) *> If JOBU1 = 'Y', U1 contains the P-by-P unitary matrix U1. *> \endverbatim *> @@ -201,7 +201,7 @@ *> *> \param[out] U2 *> \verbatim -*> U2 is COMPLEX*16 array, dimension (M-P) +*> U2 is COMPLEX*16 array, dimension (M-P,M-P) *> If JOBU2 = 'Y', U2 contains the (M-P)-by-(M-P) unitary *> matrix U2. *> \endverbatim @@ -215,7 +215,7 @@ *> *> \param[out] V1T *> \verbatim -*> V1T is COMPLEX*16 array, dimension (Q) +*> V1T is COMPLEX*16 array, dimension (Q,Q) *> If JOBV1T = 'Y', V1T contains the Q-by-Q matrix unitary *> matrix V1**H. *> \endverbatim @@ -229,7 +229,7 @@ *> *> \param[out] V2T *> \verbatim -*> V2T is COMPLEX*16 array, dimension (M-Q) +*> V2T is COMPLEX*16 array, dimension (M-Q,M-Q) *> If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) unitary *> matrix V2**H. *> \endverbatim |