Lines Matching defs:ramg_smoother

395       subroutine ramg_smoother(level,xnew,xold,xrhs,  subroutine
403       integer level
404       real(kind=8),dimension(amg_nshg(level)),intent(in) ::xrhs,xold
405       real(kind=8),dimension(amg_nshg(level)),intent(inout) :: xnew
406       integer,intent(in),dimension(nshg+1)       :: colm
407       integer,intent(in),dimension(nnz_tot)      :: rowp
409       real(kind=8),intent(in),dimension(9,nnz_tot)    :: lhsK
410       real(kind=8),intent(in),dimension(4,nnz_tot)    :: lhsP
412       integer,intent(in),dimension(nlwork)   :: ilwork
413       integer,intent(in),dimension(nshg)     :: iBC,iper
414       real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
415       integer fwdbck
417       integer i,k
418       logical :: jacobi