Searched defs:solve_lanczos_complex (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/gww/ |
| H A D | do_self_lanczos.f90 | 69 subroutine solve_lanczos_complex(nbuf,alpha,e_mat,lc) subroutine
80 INTEGER :: nbuf!number of matrices to treat
81 COMPLEX(kind=DP) :: alpha(nbuf)!constant for Ev+iw
82 TYPE(lanczos_chain) :: lc!lanczos chain descriptor
83 COMPLEX(kind=DP) :: e_mat(lc%numt,lc%numt,nbuf)!matrix to be calculated
86 INTEGER :: io,info,ii,jj,il
87 COMPLEX(kind=DP), ALLOCATABLE :: dl(:),du(:),d(:),t(:)
88 COMPLEX(kind=DP), ALLOCATABLE :: omat(:,:)
89 REAL(kind=DP), ALLOCATABLE :: tmp_mat(:,:)
90 INTEGER :: l_blk,nbegin,nend, iproc
|