diff options
| author | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 16:25:09 -0500 |
|---|---|---|
| committer | Ichitaro Yamazaki <iyamazak@bunsen.icl.utk.edu> | 2016-11-17 16:25:09 -0500 |
| commit | 8b4f3fd9a349567fb71ed8decb1c83a090b9e6b2 (patch) | |
| tree | 8c6b2cf32400318a7190d9904e12229d4d7a2f35 /SRC/chetrs_aa.f | |
| parent | c273c5da1de722032cbdbb7d541c6157141e2dbb (diff) | |
fixing lwork for Aasen's (lwork > 0).
Diffstat (limited to 'SRC/chetrs_aa.f')
| -rw-r--r-- | SRC/chetrs_aa.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/chetrs_aa.f b/SRC/chetrs_aa.f index 11f19d6f..ef55c8f0 100644 --- a/SRC/chetrs_aa.f +++ b/SRC/chetrs_aa.f @@ -104,7 +104,7 @@ *> *> \param[in] LWORK *> \verbatim -*> LWORK is INTEGER, LWORK >= 3*N-2. +*> LWORK is INTEGER, LWORK >= MAX(1,3*N-2). *> *> \param[out] INFO *> \verbatim @@ -179,7 +179,7 @@ INFO = -5 ELSE IF( LDB.LT.MAX( 1, N ) ) THEN INFO = -8 - ELSE IF( LWORK.LT.(3*N-2) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.MAX( 1, 3*N-2 ) .AND. .NOT.LQUERY ) THEN INFO = -10 END IF IF( INFO.NE.0 ) THEN |