Skip to content

Commit e84f91a

Browse files
committed
fix ggev rwork size
1 parent 399f9a1 commit e84f91a

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_linalg_eigenvalues.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -353,7 +353,7 @@ submodule (stdlib_linalg) stdlib_linalg_eigenvalues
353353

354354
! Compute workspace size
355355
#:if rt.startswith('complex')
356-
allocate(rwork(2*n))
356+
allocate(rwork( #{if ei=='ggev'}# 8*n #{else}# 2*n #{endif}# ))
357357
#:else
358358
allocate(lreal(n),limag(n))
359359
#:endif

0 commit comments

Comments
 (0)