build_panel_quadrature Subroutine

public subroutine build_panel_quadrature(geometry, plan)

Arguments

Type IntentOptional Attributes Name
type(panel_geometry_type), intent(in) :: geometry
type(panel_quadrature_plan_type), intent(out) :: plan

Calls

proc~~build_panel_quadrature~~CallsGraph proc~build_panel_quadrature build_panel_quadrature proc~fill_panel_quadrature fill_panel_quadrature proc~build_panel_quadrature->proc~fill_panel_quadrature

Source Code

  subroutine build_panel_quadrature(geometry, plan)
    type(panel_geometry_type), intent(in) :: geometry
    type(panel_quadrature_plan_type), intent(out) :: plan

    plan%npoint = 7_i32
    allocate (plan%position(3, plan%npoint), plan%weight(plan%npoint))
    call fill_panel_quadrature(geometry, plan%position, plan%weight)
  end subroutine build_panel_quadrature