diff --git a/lapack-netlib/SRC/cgbsvx.f b/lapack-netlib/SRC/cgbsvx.f index 7b6770d20..eaab5682c 100644 --- a/lapack-netlib/SRC/cgbsvx.f +++ b/lapack-netlib/SRC/cgbsvx.f @@ -322,7 +322,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is REAL array, dimension (N) +*> RWORK is REAL array, dimension (MAX(1,N)) *> On exit, RWORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If RWORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/cgesvx.f b/lapack-netlib/SRC/cgesvx.f index 66c714bb1..74a37e9a0 100644 --- a/lapack-netlib/SRC/cgesvx.f +++ b/lapack-netlib/SRC/cgesvx.f @@ -302,7 +302,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is REAL array, dimension (2*N) +*> RWORK is REAL array, dimension (MAX(1,2*N)) *> On exit, RWORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If RWORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/dgbsvx.f b/lapack-netlib/SRC/dgbsvx.f index 030f28f0a..0ee5eecb3 100644 --- a/lapack-netlib/SRC/dgbsvx.f +++ b/lapack-netlib/SRC/dgbsvx.f @@ -316,7 +316,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension (3*N) +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,3*N)) *> On exit, WORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If WORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/dgesvx.f b/lapack-netlib/SRC/dgesvx.f index 4dc1d83cf..f787488dc 100644 --- a/lapack-netlib/SRC/dgesvx.f +++ b/lapack-netlib/SRC/dgesvx.f @@ -296,7 +296,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is DOUBLE PRECISION array, dimension (4*N) +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,4*N)) *> On exit, WORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If WORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/sgbsvx.f b/lapack-netlib/SRC/sgbsvx.f index 40829a71b..df3a721d9 100644 --- a/lapack-netlib/SRC/sgbsvx.f +++ b/lapack-netlib/SRC/sgbsvx.f @@ -316,7 +316,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension (3*N) +*> WORK is REAL array, dimension (MAX(1,3*N)) *> On exit, WORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If WORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/sgesvx.f b/lapack-netlib/SRC/sgesvx.f index 930b88c33..385e626cf 100644 --- a/lapack-netlib/SRC/sgesvx.f +++ b/lapack-netlib/SRC/sgesvx.f @@ -296,7 +296,7 @@ *> *> \param[out] WORK *> \verbatim -*> WORK is REAL array, dimension (4*N) +*> WORK is REAL array, dimension (MAX(1,4*N)) *> On exit, WORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If WORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/zgbsvx.f b/lapack-netlib/SRC/zgbsvx.f index b6be78663..871564a81 100644 --- a/lapack-netlib/SRC/zgbsvx.f +++ b/lapack-netlib/SRC/zgbsvx.f @@ -322,7 +322,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is DOUBLE PRECISION array, dimension (N) +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,N)) *> On exit, RWORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If RWORK(1) is much less than 1, then the stability diff --git a/lapack-netlib/SRC/zgesvx.f b/lapack-netlib/SRC/zgesvx.f index 87f36bba6..3b193a1b2 100644 --- a/lapack-netlib/SRC/zgesvx.f +++ b/lapack-netlib/SRC/zgesvx.f @@ -302,7 +302,7 @@ *> *> \param[out] RWORK *> \verbatim -*> RWORK is DOUBLE PRECISION array, dimension (2*N) +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,2*N)) *> On exit, RWORK(1) contains the reciprocal pivot growth *> factor norm(A)/norm(U). The "max absolute element" norm is *> used. If RWORK(1) is much less than 1, then the stability