Lines Matching refs:level
395 subroutine ramg_smoother(level,xnew,xold,xrhs, argument
403 integer level local
404 real(kind=8),dimension(amg_nshg(level)),intent(in) ::xrhs,xold
405 real(kind=8),dimension(amg_nshg(level)),intent(inout) :: xnew
429 call ramg_mls_apply(xnew,xold,xrhs,level,
433 call ramg_gauss(amg_A_colm(level)%p,amg_A_rowp(level)%p,
434 & amg_A_lhs(level)%p,amg_nshg(level),
435 & amg_nnz(level),xrhs,xnew,xold,
436 & fwdbck,level,
439 call ramg_cheby_apply(xnew,xold,xrhs,level,
443 call ramg_jacobi(amg_A_colm(level)%p,
444 & amg_A_rowp(level)%p,amg_A_lhs(level)%p,
445 & amg_nshg(level),amg_nnz(level),