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
|