subroutine zeig(A,Eval,Evec,jobvl,jobvr)
!IN matrix - OUT eigenvectors: A.evec = eval.evec ; evec(i,j) = ith component of jth vec.
complex(8),intent(in) :: A(:,:)
complex(8),intent(out) :: Eval(:)
complex(8),intent(out) :: Evec(:,:)
character(len=1),optional :: jobvl,jobvr
character(len=1) :: jobvl_,jobvr_
real(8),dimension(:),allocatable :: rwork
complex(8),dimension(:),allocatable :: work
complex(8),dimension(1) :: lwork_guess
complex(8),dimension(:,:),allocatable :: vl,vr
integer :: info,lda,ldvl,ldvr,lwork,n,i,lrwork
jobvl_='N';if(present(jobvl))jobvl_=jobvl
jobvr_='V';if(present(jobvr))jobvr_=jobvr
if(jobvl_=='V')stop "deig error: jobvl = V is not supported yet."
lda = size(A(:,1))
n = size(A(1,:))
call assert_shape(A,[n,n],"solve","A")
call assert_shape(Evec,[n,n],"solve","Evec")
ldvl = n
ldvr = n
lrwork= 2*n
allocate(vl(ldvl,n),vr(ldvr,n),rwork(lrwork))
!Copy the input Matrix
Evec = A
!1st Call: Query the right size for the working array.
call zgeev(jobvl_, jobvr_, n, Evec, lda, Eval, vl, ldvl, vr, ldvr, lwork_guess, -1, rwork, info)
if(info /= 0) then
print*, "zgeev returned info = ",info
if (info < 0) then
print*, "the",-info,"-th argument had an illegal value"
else
print*, "the QR algorithm failed to compute all the"
print*, "eigenvalues, and no eigenvectors have been computed;"
print*, "elements ", info+1, ":", n, "of WR and WI contain eigenvalues which"
print*, "have converged."
end if
stop 'deig error: 1st call zgeev'
endif
lwork = int(lwork_guess(1)) ;allocate(work(lwork))
!2nd Call: Actual solution of the eigenproblem
call zgeev(jobvl_, jobvr_, n, Evec, lda, Eval, vl, ldvl, vr, ldvr, work, lwork, rwork, info)
if(info /= 0) then
print *, "zgeev returned info = ",info
if (info < 0) then
print*, "the",-info,"-th argument had an illegal value"
else
print*, "the QR algorithm failed to compute all the"
print*, "eigenvalues, and no eigenvectors have been computed;"
print*, "elements ", info+1, ":", n, "of WR and WI contain eigenvalues which"
print*, "have converged."
end if
stop 'deig error: 2nd call zgeev'
end if
Evec = vr
end subroutine zeig