smoother Module

A smoother module


Uses

  • module~~smoother~~UsesGraph module~smoother smoother module~comm_variable comm_variable module~smoother->module~comm_variable module~define_bc define_BC module~smoother->module~define_bc module~mpi_setup mpi_setup module~smoother->module~mpi_setup module~operators operators module~smoother->module~operators mpi mpi module~comm_variable->mpi module~define_bc->module~comm_variable module~wavenumber wavenumber module~define_bc->module~wavenumber module~mpi_setup->module~comm_variable module~mpi_setup->mpi module~operators->module~comm_variable module~operators->module~define_bc module~operators->module~mpi_setup module~operators->module~wavenumber module~operators->mpi module~wavenumber->module~comm_variable module~wavenumber->module~mpi_setup module~wavenumber->mpi

Used by

  • module~~smoother~~UsedByGraph module~smoother smoother module~cslp_solver CSLP_Solver module~cslp_solver->module~smoother module~deflaion_setup deflaion_setup module~deflaion_setup->module~cslp_solver module~solvers solvers module~solvers->module~cslp_solver module~solvers->module~deflaion_setup module~user_module user_module module~user_module->module~cslp_solver module~user_module->module~deflaion_setup module~idrs_module idrs_module module~idrs_module->module~user_module program~helmholtz_2d helmholtz_2d program~helmholtz_2d->module~solvers program~helmholtz_2d->module~user_module program~helmholtz_2d->module~idrs_module

Subroutines

public subroutine Damp_Jacobi_smoother(x, rhs, ni, nj, hx_c, hy_c, kxy, kh2)

This is a routine to apply damped Jacobbi smoother on coarse grid systems.

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:ni+LAP,1-LAP:nj+LAP) :: x
complex(kind=realdp), dimension(1-LAP:ni+LAP,1-LAP:nj+LAP) :: rhs

local arguements
integer, intent(in) :: ni

subdomain grid size on the current coarse level
integer, intent(in) :: nj

subdomain grid size on the current coarse level
real(kind=realdp), intent(in) :: hx_c

coarse-grid space step size
real(kind=realdp), intent(in) :: hy_c

coarse-grid space step size
real(kind=realdp), intent(in), dimension(1-LAP:ni+LAP,1-LAP:nj+LAP) :: kxy

Wavenumber and (kh)^2
real(kind=realdp), intent(in), dimension(1-LAP:ni+LAP,1-LAP:nj+LAP) :: kh2

Wavenumber and (kh)^2