From 3735794d62586183839e557c8dd960195a525f48 Mon Sep 17 00:00:00 2001 From: towara Date: Mon, 19 Jun 2023 11:28:52 +0200 Subject: [PATCH] fix dlasd0 / slasd0 documentation issue --- SRC/dlasd0.f | 10 ++++++---- SRC/slasd0.f | 10 ++++++---- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f index 215dc87171..6d8d4e2db3 100644 --- a/SRC/dlasd0.f +++ b/SRC/dlasd0.f @@ -79,10 +79,11 @@ *> On exit, E has been destroyed. *> \endverbatim *> -*> \param[out] U +*> \param[in,out] U *> \verbatim *> U is DOUBLE PRECISION array, dimension (LDU, N) -*> On exit, U contains the left singular vectors. +*> On exit, U contains the left singular vectors, +*> if U passed in as (N, N) Identity. *> \endverbatim *> *> \param[in] LDU @@ -91,10 +92,11 @@ *> On entry, leading dimension of U. *> \endverbatim *> -*> \param[out] VT +*> \param[in,out] VT *> \verbatim *> VT is DOUBLE PRECISION array, dimension (LDVT, M) -*> On exit, VT**T contains the right singular vectors. +*> On exit, VT**T contains the right singular vectors, +*> if VT passed in as (M, M) Identity. *> \endverbatim *> *> \param[in] LDVT diff --git a/SRC/slasd0.f b/SRC/slasd0.f index a45f741a97..c8a5c7838b 100644 --- a/SRC/slasd0.f +++ b/SRC/slasd0.f @@ -79,10 +79,11 @@ *> On exit, E has been destroyed. *> \endverbatim *> -*> \param[out] U +*> \param[in,out] U *> \verbatim *> U is REAL array, dimension (LDU, N) -*> On exit, U contains the left singular vectors. +*> On exit, U contains the left singular vectors, +*> if U passed in as (N, N) Identity. *> \endverbatim *> *> \param[in] LDU @@ -91,10 +92,11 @@ *> On entry, leading dimension of U. *> \endverbatim *> -*> \param[out] VT +*> \param[in,out] VT *> \verbatim *> VT is REAL array, dimension (LDVT, M) -*> On exit, VT**T contains the right singular vectors. +*> On exit, VT**T contains the right singular vectors, +*> if VT passed in as (M, M) Identity. *> \endverbatim *> *> \param[in] LDVT