diff options
Diffstat (limited to 'SRC/zuncsd.f')
| -rw-r--r-- | SRC/zuncsd.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 18dce987..570b370b 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -188,7 +188,7 @@ *> *> \param[out] U1 *> \verbatim -*> U1 is COMPLEX*16 array, dimension (P,P) +*> U1 is COMPLEX*16 array, dimension (LDU1,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,M-P) +*> U2 is COMPLEX*16 array, dimension (LDU2,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,Q) +*> V1T is COMPLEX*16 array, dimension (LDV1T,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,M-Q) +*> V2T is COMPLEX*16 array, dimension (LDV2T,M-Q) *> If JOBV2T = 'Y', V2T contains the (M-Q)-by-(M-Q) unitary *> matrix V2**H. *> \endverbatim |