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