diff options
-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 * |