Lines Matching defs:ramg_mls_min_eigen
188 subroutine ramg_mls_min_eigen(evmax,level,flagfb, subroutine
197 real(kind=8),intent(inout) :: evmax
198 integer,intent(in) :: level
199 integer,intent(in) :: flagfb
200 integer,intent(in),dimension(nshg+1) :: colm
201 integer,intent(in),dimension(nnz_tot) :: rowp
203 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
204 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
206 integer,intent(in),dimension(nlwork) :: ilwork
207 integer,intent(in),dimension(nshg) :: iBC,iper
208 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
214 integer iparam(11),ipntr(14)
215 integer gcomm
221 logical,dimension(:),allocatable :: selectncv
222 real(kind=8),dimension(:,:),allocatable :: d local
223 real(kind=8),dimension(:),allocatable :: dr,di,workev,workl
225 real(kind=8),allocatable,dimension(:) :: resid,workd
227 character bmat*1,which*2
228 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr,
229 & i,j,ishifts,maxitr,model,nconv
230 real(kind=8) :: tol,sigmar,sigmai
231 logical :: first,rvec
233 real(kind=8) :: res_i,res_o,rtemp,tnorm,tnorm1
234 real(kind=8),allocatable,dimension(:,:):: tramg_ev
235 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
237 integer,allocatable,dimension(:) :: gmap,grevmap
239 integer :: p,q,nsize,step,asize,gsize