Lines Matching defs:ramg_mls_eigen
8 subroutine ramg_mls_eigen(evmax,level,flagfb, subroutine
17 real(kind=8),intent(inout) :: evmax
18 integer,intent(in) :: level
19 integer,intent(in) :: flagfb
20 integer,intent(in),dimension(nshg+1) :: colm
21 integer,intent(in),dimension(nnz_tot) :: rowp
23 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
24 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
26 integer,intent(in),dimension(nlwork) :: ilwork
27 integer,intent(in),dimension(nshg) :: iBC,iper
28 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
34 integer iparam(11),ipntr(14)
35 integer gcomm
41 logical,dimension(:),allocatable :: selectncv
42 real(kind=8),dimension(:,:),allocatable :: d local
43 real(kind=8),dimension(:),allocatable :: dr,di,workev,workl
45 real(kind=8),allocatable,dimension(:) :: resid,workd
47 character bmat*1,which*2
48 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr,
49 & i,j,ishifts,maxitr,model,nconv
50 real(kind=8) :: tol,sigmar,sigmai
51 logical :: first,rvec
53 real(kind=8) :: res_i,res_o,rtemp,tnorm,tnorm1
54 real(kind=8),allocatable,dimension(:,:):: tramg_ev
55 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
57 integer,allocatable,dimension(:) :: gmap,grevmap
59 integer :: p,q,nsize,step,asize,gsize