mirror of
https://github.com/pfloos/quack
synced 2025-05-06 15:14:55 +02:00
removed unnecessary sort
This commit is contained in:
parent
12a87a9f45
commit
7d81113730
@ -200,7 +200,6 @@ subroutine complex_diagonalize_matrix_without_sort(N,A,e)
|
||||
allocate(work(lwork))
|
||||
|
||||
call zgeev('N','V',N,A,N,e,VL,N,VR,N,work,lwork,rwork,info)
|
||||
call complex_sort_eigenvalues(N,e,VR)
|
||||
|
||||
|
||||
deallocate(work)
|
||||
|
Loading…
x
Reference in New Issue
Block a user