diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-09-21 02:21:29 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-09-21 02:21:29 +0000 |
| commit | 44948e7c8e4cff62a9a944030e22ef7a93903c37 (patch) | |
| tree | ca5dc5ca7137ff29789696ab951b7dfbe30f5224 /SRC/stprfb.f | |
| parent | f045e14fbd8316f88bdcef003049b3959d57a67c (diff) | |
| download | lapack-44948e7c8e4cff62a9a944030e22ef7a93903c37.tar.gz lapack-44948e7c8e4cff62a9a944030e22ef7a93903c37.tar.bz2 lapack-44948e7c8e4cff62a9a944030e22ef7a93903c37.zip | |
Diffstat (limited to 'SRC/stprfb.f')
| -rw-r--r-- | SRC/stprfb.f | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/SRC/stprfb.f b/SRC/stprfb.f index de9253e7..3a0b23f5 100644 --- a/SRC/stprfb.f +++ b/SRC/stprfb.f @@ -273,7 +273,7 @@ * .. * .. Local Scalars .. INTEGER I, J, MP, NP, KP - LOGICAL LEFT, FORWARD, COLUMN, RIGHT, BACKWARD, ROW + LOGICAL LEFT, LQUERY, FORWARD, COLUMN, RIGHT, BACKWARD, ROW * .. * .. External Functions .. LOGICAL LSAME @@ -284,6 +284,7 @@ * .. * .. 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 @@ -320,6 +321,19 @@ 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 * * --------------------------------------------------------------------------- * |