diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-09-21 15:48:46 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-09-21 15:48:46 +0000 |
| commit | 7efafa84467956c9fb86a6711adeb554b376d349 (patch) | |
| tree | b33c1593bf8eb607b77fb5b3b57f746256278df6 /SRC/ztprfb.f | |
| parent | 44948e7c8e4cff62a9a944030e22ef7a93903c37 (diff) | |
| download | lapack-7efafa84467956c9fb86a6711adeb554b376d349.tar.gz lapack-7efafa84467956c9fb86a6711adeb554b376d349.tar.bz2 lapack-7efafa84467956c9fb86a6711adeb554b376d349.zip | |
Diffstat (limited to 'SRC/ztprfb.f')
| -rw-r--r-- | SRC/ztprfb.f | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/SRC/ztprfb.f b/SRC/ztprfb.f index d3d84505..9110f494 100644 --- a/SRC/ztprfb.f +++ b/SRC/ztprfb.f @@ -184,11 +184,6 @@ *> The leading dimension of the array WORK. *> If SIDE = 'L', LDWORK >= K; *> if SIDE = 'R', LDWORK >= M. -*> -*> If LDWORK = -1, then a workspace query is assumed; the routine -*> only calculates the optimal size of 2nd dimension of the WORK array, -*> returns this value as the first entry of the WORK array, and no -*> error message related to LDWORK is issued by XERBLA. *> \endverbatim * * Authors: @@ -278,7 +273,7 @@ * .. * .. Local Scalars .. INTEGER I, J, MP, NP, KP - LOGICAL LEFT, LQUERY, FORWARD, COLUMN, RIGHT, BACKWARD, ROW + LOGICAL LEFT, FORWARD, COLUMN, RIGHT, BACKWARD, ROW * .. * .. External Functions .. LOGICAL LSAME @@ -292,7 +287,6 @@ * .. * .. Executable Statements .. * - LQUERY = ( LDWORK.EQ.-1 ) * Quick return if possible * IF( M.LE.0 .OR. N.LE.0 .OR. K.LE.0 .OR. L.LT.0 ) RETURN @@ -329,19 +323,6 @@ FORWARD = .FALSE. BACKWARD = .FALSE. END IF -* --------------------------------------------------------------------------- -* -* Workspace Query -* - IF( LQUERY .AND. LEFT ) THEN - LDWORK=MAX(1,K) - ELSE IF ( LQUERY .AND. RIGHT ) THEN - LDWORK=MAX(1,M) - END IF - - IF( LQUERY ) THEN - RETURN - END IF * * --------------------------------------------------------------------------- * |