diff options
| -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 * |