Skip to content

Commit 4f503f7

Browse files
committed
copy_a: simplify
1 parent bac3187 commit 4f503f7

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

src/stdlib_linalg_eigenvalues.fypp

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -451,13 +451,12 @@ submodule (stdlib_linalg) stdlib_linalg_eigenvalues
451451
endif
452452

453453
! Check if input A can be overwritten
454+
copy_a = .true._lk
454455
if (present(vectors)) then
455456
! No need to copy A anyways
456457
copy_a = .false.
457458
elseif (present(overwrite_a)) then
458459
copy_a = .not.overwrite_a
459-
else
460-
copy_a = .true._lk
461460
endif
462461

463462
! Should we use the upper or lower half of the matrix?

0 commit comments

Comments
 (0)