Browse Source

Fix workspace query corner cases to always return at least 1

pull/4146/head
Martin Kroeker GitHub 2 years ago
parent
commit
3afdd04984
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lapack-netlib/SRC/ssytrf_rk.f

+ 1
- 1
lapack-netlib/SRC/ssytrf_rk.f View File

@@ -310,7 +310,7 @@
* Determine the block size
*
NB = ILAENV( 1, 'SSYTRF_RK', UPLO, N, -1, -1, -1 )
LWKOPT = N*NB
LWKOPT = MAX( 1, N*NB )
WORK( 1 ) = LWKOPT
END IF
*


Loading…
Cancel
Save