From 84421c6d3cb6e4b589c476fe8a79b11b088259dd Mon Sep 17 00:00:00 2001 From: Henning Thielemann Date: Sat, 3 Jun 2017 23:10:37 +0200 Subject: ZCGESV, ZCPOSV; parameter WORK: dimension (N*NRHS) -> (N,NRHS) analogous to DSGESV, DSPOSV --- SRC/zcgesv.f | 2 +- SRC/zcposv.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SRC/zcgesv.f b/SRC/zcgesv.f index 8240e2b6..142a0e7c 100644 --- a/SRC/zcgesv.f +++ b/SRC/zcgesv.f @@ -142,7 +142,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension (N*NRHS) +*> WORK is COMPLEX*16 array, dimension (N,NRHS) *> This array is used to hold the residual vectors. *> \endverbatim *> diff --git a/SRC/zcposv.f b/SRC/zcposv.f index 3159c3dd..c90a70ce 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -150,7 +150,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is COMPLEX*16 array, dimension (N*NRHS) +*> WORK is COMPLEX*16 array, dimension (N,NRHS) *> This array is used to hold the residual vectors. *> \endverbatim *> -- cgit v1.2.3