epsi
/
msspec_python3
3
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

Fix bug, the rank was not set properly

This commit is contained in:
Sylvain Tricot 2021-07-21 23:06:12 +02:00
parent 391c4629a7
commit df5c0de8b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/msspec/spec/fortran/eig/common/diagonalize_matrix.f
View File

@ -17,7 +17,7 @@ c
c Local variables c Local variables
c c
integer :: lwork integer :: lwork
complex*16 :: wquery complex*16 :: wquery(1)
complex*16 :: vl(1,1), vr(1,1) complex*16 :: vl(1,1), vr(1,1)
c c
real*8, allocatable :: rwork(:) real*8, allocatable :: rwork(:)
@ -39,7 +39,7 @@ c
write(iuo1,*) ' ' write(iuo1,*) ' '
end if end if
c c
lwork = int(wquery) lwork = int(wquery(1))
allocate(work(lwork)) allocate(work(lwork))
c c
call zgeev('n','n',n,a,lda,w,vl,1,vr,1,work,lwork,rwork,info) call zgeev('n','n',n,a,lda,w,vl,1,vr,1,work,lwork,rwork,info)