From ce997774dca40e2a7a0d8a5ca8c1ada21f62b77d Mon Sep 17 00:00:00 2001
From: Henning Thielemann <git@henning-thielemann.de>
Date: Sat, 3 Jun 2017 17:53:39 +0200
Subject: [PATCH] DLASD0; IWORK, WORK: copy dimension specification from SLASD0

---
 SRC/dlasd0.f | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/SRC/dlasd0.f b/SRC/dlasd0.f
index ca0b3b9..832481a 100644
--- a/SRC/dlasd0.f
+++ b/SRC/dlasd0.f
@@ -112,14 +112,12 @@
 *>
 *> \param[out] IWORK
 *> \verbatim
-*>          IWORK is INTEGER work array.
-*>         Dimension must be at least (8 * N)
+*>          IWORK is INTEGER array, dimension (8*N)
 *> \endverbatim
 *>
 *> \param[out] WORK
 *> \verbatim
-*>          WORK is DOUBLE PRECISION work array.
-*>         Dimension must be at least (3 * M**2 + 2 * M)
+*>          WORK is DOUBLE PRECISION array, dimension (3*M**2+2*M)
 *> \endverbatim
 *>
 *> \param[out] INFO
-- 
2.7.4