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 | |
| parent | 97230bb34e502c85bafbd14a08b479019001f323 (diff) | |
| download | lapack-e928763a012c59d139825b36142218d8db4946d1.tar.gz lapack-e928763a012c59d139825b36142218d8db4946d1.tar.bz2 lapack-e928763a012c59d139825b36142218d8db4946d1.zip | |
Correct problem in Workspace calculation
| -rw-r--r-- | SRC/cungbr.f | 2 | ||||
| -rw-r--r-- | SRC/dorgbr.f | 2 | ||||
| -rw-r--r-- | SRC/sorgbr.f | 2 | ||||
| -rw-r--r-- | SRC/zungbr.f | 2 |
4 files changed, 8 insertions, 0 deletions
diff --git a/SRC/cungbr.f b/SRC/cungbr.f index 7440aa94..ff7d17c3 100644 --- a/SRC/cungbr.f +++ b/SRC/cungbr.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( 'CUNGBR', -INFO ) RETURN ELSE IF( LQUERY ) THEN + WORK( 1 ) = LWKOPT RETURN END IF * diff --git a/SRC/dorgbr.f b/SRC/dorgbr.f index 710883bd..ecc7dce7 100644 --- a/SRC/dorgbr.f +++ b/SRC/dorgbr.f @@ -237,12 +237,14 @@ END IF END IF LWKOPT = WORK( 1 ) + LWKOPT = MAX (LWKOPT, MN) END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'DORGBR', -INFO ) RETURN ELSE IF( LQUERY ) THEN + WORK( 1 ) = LWKOPT RETURN END IF * diff --git a/SRC/sorgbr.f b/SRC/sorgbr.f index c028ac1a..0bd8c3c6 100644 --- a/SRC/sorgbr.f +++ b/SRC/sorgbr.f @@ -237,12 +237,14 @@ END IF END IF LWKOPT = WORK( 1 ) + LWKOPT = MAX (LWKOPT, MN) END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SORGBR', -INFO ) RETURN ELSE IF( LQUERY ) THEN + WORK( 1 ) = LWKOPT RETURN END IF * 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 * |