Lines Matching defs:ramg_CFsplit
561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, subroutine
571 integer,intent(in) :: anshg,annz
572 integer,intent(inout),dimension(anshg) :: amg_CF
573 integer,intent(in),dimension(anshg+1) :: acolm
574 integer,intent(in),dimension(annz) :: arowp
575 integer,intent(inout),dimension(annz) :: amg_S
576 real(kind=8),intent(in),dimension(annz) :: alhs
577 integer,intent(in),dimension(anshg) :: afmap
578 integer,intent(in),dimension(nlwork) :: ilwork
579 integer,intent(in),dimension(nshg) :: iBC,iper
580 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
582 real(kind=8) :: eps_str
583 integer,intent(in) :: afilter,spflag
589 integer :: i,j,k,n,m
590 integer,dimension(anshg) :: aheap,ainvheap
591 real(kind=8) :: Lmax
592 real(kind=8),dimension(anshg) :: amg_L
593 real(kind=8),dimension(anshg) :: rowmax,prowmax
594 real(kind=8) :: MSCALE,LSCALE,deltal
595 integer :: flagS,nheaps,cfilter
600 integer,allocatable,dimension(:) :: oneck