diff options
| author | julie <julielangou@users.noreply.github.com> | 2016-02-23 05:05:07 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2016-02-23 05:05:07 +0000 |
| commit | 3377a8bb32b1ff77c8aa144e67da6ce8300890e3 (patch) | |
| tree | 3937a96ddefdd95e11e85f2e0747c631cd9aeeb2 /SRC/ssytrf_rook.f | |
| parent | 348a85b78be71829c56e430515791f818c9f0edc (diff) | |
| download | lapack-3377a8bb32b1ff77c8aa144e67da6ce8300890e3.tar.gz lapack-3377a8bb32b1ff77c8aa144e67da6ce8300890e3.tar.bz2 lapack-3377a8bb32b1ff77c8aa144e67da6ce8300890e3.zip | |
APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry.g.baksheev@intel.com)
Subject: [PATCH 04/42] Fix ?{HE,SY}TRF_ROOK - LQUERY shall return LWORK at least 1
Diffstat (limited to 'SRC/ssytrf_rook.f')
| -rw-r--r-- | SRC/ssytrf_rook.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/ssytrf_rook.f b/SRC/ssytrf_rook.f index 6467be45..ab22823a 100644 --- a/SRC/ssytrf_rook.f +++ b/SRC/ssytrf_rook.f @@ -261,7 +261,7 @@ * Determine the block size * NB = ILAENV( 1, 'SSYTRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * |