APPLYING INTEL PATCHES sent to Julie on Feb 19th 2016 by Dima from INTEL (dmitry...

Subject: [PATCH 04/42] Fix ?{HE,SY}TRF_ROOK - LQUERY shall return LWORK at least 1

diff --git a/SRC/chetrf_rook.f b/SRC/chetrf_rook.f
index 98c8dbd267198f98239e4105a7874ab3eada8725..8b1c28e105d54349873ac1098ad1cfe70ee379e9 100644 (file)
--- 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 fab048162c272e1756a22de4d5010ae6c75b66e1..daa6436040e79e2cb52914a7036bfa8c0d51b503 100644 (file)
--- 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 81264872ad2319f84b4195f0127ec651f93053a8..000580c64c9aaf46c70fb7cf49b0b4bbaa268c68 100644 (file)
--- 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 6467be45790c96764f0f5004d6d4191216076884..ab22823af708c89b06eca50644d985f382a738fe 100644 (file)
--- 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 64e59aab581aeef7129891248143d0c77411072b..b21d41847043f7d3fc9ae6a415a684a7933f9d13 100644 (file)
--- 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 f5d3e51bf14bb5d1dee240ecd1f7df550d4d5782..b66bf606894b4edc4d38f7ee5c513d81fef8b38f 100644 (file)
--- 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
 *