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 | |
| parent | 348a85b78be71829c56e430515791f818c9f0edc (diff) | |
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
| -rw-r--r-- | SRC/chetrf_rook.f | 2 | ||||
| -rw-r--r-- | SRC/csytrf_rook.f | 2 | ||||
| -rw-r--r-- | SRC/dsytrf_rook.f | 2 | ||||
| -rw-r--r-- | SRC/ssytrf_rook.f | 2 | ||||
| -rw-r--r-- | SRC/zhetrf_rook.f | 2 | ||||
| -rw-r--r-- | SRC/zsytrf_rook.f | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/SRC/chetrf_rook.f b/SRC/chetrf_rook.f index 98c8dbd2..8b1c28e1 100644 --- a/SRC/chetrf_rook.f +++ b/SRC/chetrf_rook.f @@ -265,7 +265,7 @@ * Determine the block size * NB = ILAENV( 1, 'CHETRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * diff --git a/SRC/csytrf_rook.f b/SRC/csytrf_rook.f index fab04816..daa64360 100644 --- a/SRC/csytrf_rook.f +++ b/SRC/csytrf_rook.f @@ -261,7 +261,7 @@ * Determine the block size * NB = ILAENV( 1, 'CSYTRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * diff --git a/SRC/dsytrf_rook.f b/SRC/dsytrf_rook.f index 81264872..000580c6 100644 --- a/SRC/dsytrf_rook.f +++ b/SRC/dsytrf_rook.f @@ -261,7 +261,7 @@ * Determine the block size * NB = ILAENV( 1, 'DSYTRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * 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 * diff --git a/SRC/zhetrf_rook.f b/SRC/zhetrf_rook.f index 64e59aab..b21d4184 100644 --- a/SRC/zhetrf_rook.f +++ b/SRC/zhetrf_rook.f @@ -265,7 +265,7 @@ * Determine the block size * NB = ILAENV( 1, 'ZHETRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * diff --git a/SRC/zsytrf_rook.f b/SRC/zsytrf_rook.f index f5d3e51b..b66bf606 100644 --- a/SRC/zsytrf_rook.f +++ b/SRC/zsytrf_rook.f @@ -261,7 +261,7 @@ * Determine the block size * NB = ILAENV( 1, 'ZSYTRF_ROOK', UPLO, N, -1, -1, -1 ) - LWKOPT = N*NB + LWKOPT = MAX( 1, N*NB ) WORK( 1 ) = LWKOPT END IF * |