Lines Matching defs:ramg_ggb_setup
1 subroutine ramg_ggb_setup(colm,rowp,lhsK,lhsP, subroutine
10 integer,intent(in),dimension(nshg+1) :: colm
11 integer,intent(in),dimension(nnz_tot) :: rowp
13 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
14 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
16 integer,intent(in),dimension(nlwork) :: ilwork
17 integer,intent(in),dimension(nshg) :: iBC,iper
18 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
19 integer iparam(11),ipntr(14)
21 integer gcomm
23 logical selectncv(maxncv)
24 real(kind=8) :: d(maxncv,3),dr(maxncv),di(maxncv),
25 & workev(3*maxncv),
26 & workl(3*maxncv*maxncv+6*maxncv)
28 real(kind=8),allocatable,dimension(:) :: resid,workd
30 character bmat*1,which*2
31 integer :: ido,n,nx,nev,ncv,lworkl,info,ierr,
32 & i,j,ishifts,maxitr,model,nconv
33 real(kind=8) :: tol,sigmar,sigmai
34 logical :: first,rvec
36 real(kind=8) :: rtemp,tnorm,tnorm1
37 real(kind=8),allocatable,dimension(:) :: tv,tw
38 real(kind=8),allocatable,dimension(:,:):: teA,tramg_ev
40 integer,allocatable,dimension(:) :: gmap,grevmap
42 integer :: p,q,nsize,step,asize,gsize
43 character fname*20