Lines Matching defs:ramg_coarse_setup
10 subroutine ramg_coarse_setup(level1,level2,eps_str, subroutine
21 integer,intent(in) :: level1,level2
22 real(kind=8),intent(in) :: eps_str
23 integer,intent(in) :: interp_flag
24 real(kind=8),intent(in) :: trunc_tol
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
30 integer,dimension(amg_nnz(level1)) :: amg_S,amg_Ip
31 integer,dimension(amg_nshg(level1)) :: amg_F,aLoc
32 real(kind=8),dimension(amg_nshg(level1)) :: amg_la
33 integer,dimension(amg_nshg(level1)) :: amg_Fn,amg_Fp
34 real(kind=8) :: alpha,beta,alphac,betac,diag,rtp
35 real(kind=8) :: tmp1,tmp2,tmp3,tmp4
37 integer :: I_nnz,ki,kj,jj
38 integer :: i,j,k,m,n,p,q
39 character :: fname*80
41 integer :: numtask,itkbeg,numseg,iacc
42 integer,allocatable,dimension(:) :: subcf,subcfrev,subnei
44 integer :: mnnz
45 integer :: cfilter
46 type(i2dd) :: amg_I_rowp
47 type(r2dd) :: amg_I
48 type(i1d) :: amg_I_colm
51 real,dimension(10) :: cpusec
52 logical :: ti_flag
53 integer :: mem_err,mem_err_s