helmholtz_set_methods Subroutine

public subroutine helmholtz_set_methods(mg)

Arguments

Type IntentOptional Attributes Name
type(mg_t), intent(inout) :: mg

Called by

proc~~helmholtz_set_methods~2~~CalledByGraph proc~helmholtz_set_methods~2 helmholtz_set_methods proc~mg_set_methods~2 mg_set_methods proc~mg_set_methods~2->proc~helmholtz_set_methods~2 proc~check_methods~2 check_methods proc~check_methods~2->proc~mg_set_methods~2 proc~diffusion_solve_acoeff~2 diffusion_solve_acoeff proc~diffusion_solve_acoeff~2->proc~mg_set_methods~2 proc~mg_fas_fmg~2 mg_fas_fmg proc~diffusion_solve_acoeff~2->proc~mg_fas_fmg~2 proc~mg_fas_vcycle~2 mg_fas_vcycle proc~diffusion_solve_acoeff~2->proc~mg_fas_vcycle~2 proc~diffusion_solve_vcoeff~2 diffusion_solve_vcoeff proc~diffusion_solve_vcoeff~2->proc~mg_set_methods~2 proc~diffusion_solve_vcoeff~2->proc~mg_fas_fmg~2 proc~diffusion_solve_vcoeff~2->proc~mg_fas_vcycle~2 proc~diffusion_solve~2 diffusion_solve proc~diffusion_solve~2->proc~mg_set_methods~2 proc~diffusion_solve~2->proc~mg_fas_fmg~2 proc~diffusion_solve~2->proc~mg_fas_vcycle~2 proc~mg_fas_fmg~2->proc~check_methods~2 proc~mg_fas_fmg~2->proc~mg_fas_vcycle~2 proc~mg_fas_vcycle~2->proc~check_methods~2

Source Code

  subroutine helmholtz_set_methods(mg)
    type(mg_t), intent(inout) :: mg

    mg%subtract_mean = .false.

    select case (mg%geometry_type)
    case (mg_cartesian)
       mg%box_op => box_helmh

       select case (mg%smoother_type)
       case (mg_smoother_gs, mg_smoother_gsrb)
          mg%box_smoother => box_gs_helmh
       case default
          error stop "helmholtz_set_methods: unsupported smoother type"
       end select
    case default
       error stop "helmholtz_set_methods: unsupported geometry"
    end select

  end subroutine helmholtz_set_methods