diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-03-03 22:33:51 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-03-03 22:33:51 +0000 |
| commit | 779f0da239571c4e759bcf61c1e07cc65298f169 (patch) | |
| tree | e35b7c7dd3fb4e02e2c6f4fdaaaa5e3e7c355cfb /SRC/stzrzf.f | |
| parent | 183a636b9a7e705b2ffa1fa358ec634f02e0997f (diff) | |
| download | lapack-779f0da239571c4e759bcf61c1e07cc65298f169.tar.gz lapack-779f0da239571c4e759bcf61c1e07cc65298f169.tar.bz2 lapack-779f0da239571c4e759bcf61c1e07cc65298f169.zip | |
One more workspace problem fixed...
Diffstat (limited to 'SRC/stzrzf.f')
| -rw-r--r-- | SRC/stzrzf.f | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/SRC/stzrzf.f b/SRC/stzrzf.f index b1bdc236..b3f6eadd 100644 --- a/SRC/stzrzf.f +++ b/SRC/stzrzf.f @@ -4,6 +4,7 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * November 2006 +* @generated s * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -105,11 +106,11 @@ * .. * .. Local Scalars .. LOGICAL LQUERY - INTEGER I, IB, IWS, KI, KK, LDWORK, LWKOPT, M1, MU, NB, - $ NBMIN, NX + INTEGER I, IB, IWS, KI, KK, LDWORK, LWKMIN, LWKOPT, + $ M1, MU, NB, NBMIN, NX * .. * .. External Subroutines .. - EXTERNAL SLARZB, SLARZT, SLATRZ, XERBLA + EXTERNAL XERBLA, SLARZB, SLARZT, SLATRZ * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN @@ -135,16 +136,18 @@ IF( INFO.EQ.0 ) THEN IF( M.EQ.0 .OR. M.EQ.N ) THEN LWKOPT = 1 + LWKMIN = 1 ELSE * * Determine the block size. * NB = ILAENV( 1, 'SGERQF', ' ', M, N, -1, -1 ) LWKOPT = M*NB + LWKMIN = MAX( 1, M ) END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN + IF( LWORK.LT.LWKMIN .AND. .NOT.LQUERY ) THEN INFO = -7 END IF END IF |