diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-03-22 02:05:18 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-03-22 02:05:18 +0000 |
| commit | e928763a012c59d139825b36142218d8db4946d1 (patch) | |
| tree | d013a206f3e40b0b24360148eddf1b22a076b785 /SRC/zungbr.f | |
| parent | 97230bb34e502c85bafbd14a08b479019001f323 (diff) | |
| download | lapack-e928763a012c59d139825b36142218d8db4946d1.tar.gz lapack-e928763a012c59d139825b36142218d8db4946d1.tar.bz2 lapack-e928763a012c59d139825b36142218d8db4946d1.zip | |
Correct problem in Workspace calculation
Diffstat (limited to 'SRC/zungbr.f')
| -rw-r--r-- | SRC/zungbr.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/SRC/zungbr.f b/SRC/zungbr.f index 02b051dd..def01107 100644 --- a/SRC/zungbr.f +++ b/SRC/zungbr.f @@ -238,12 +238,14 @@ END IF END IF LWKOPT = WORK( 1 ) + LWKOPT = MAX (LWKOPT, MN) END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZUNGBR', -INFO ) RETURN ELSE IF( LQUERY ) THEN + WORK( 1 ) = LWKOPT RETURN END IF * |