example_plate_hole_2_2d Program

Uses

  • program~~example_plate_hole_2_2d~~UsesGraph program~example_plate_hole_2_2d example_plate_hole_2_2d module~forcad forcad program~example_plate_hole_2_2d->module~forcad module~forcad_kinds forcad_kinds module~forcad->module~forcad_kinds module~forcad_nurbs_curve forcad_nurbs_curve module~forcad->module~forcad_nurbs_curve module~forcad_nurbs_surface forcad_nurbs_surface module~forcad->module~forcad_nurbs_surface module~forcad_nurbs_volume forcad_nurbs_volume module~forcad->module~forcad_nurbs_volume module~forcad_nurbs_curve->module~forcad_kinds fordebug fordebug module~forcad_nurbs_curve->fordebug module~forcad_utils forcad_utils module~forcad_nurbs_curve->module~forcad_utils module~forcad_nurbs_surface->module~forcad_kinds module~forcad_nurbs_surface->fordebug module~forcad_nurbs_surface->module~forcad_utils module~forcad_nurbs_volume->module~forcad_kinds module~forcad_nurbs_volume->fordebug module~forcad_nurbs_volume->module~forcad_utils module~forcad_utils->module~forcad_kinds

Calls

program~~example_plate_hole_2_2d~~CallsGraph program~example_plate_hole_2_2d example_plate_hole_2_2d none~set nurbs_surface%set program~example_plate_hole_2_2d->none~set proc~create nurbs_surface%create program~example_plate_hole_2_2d->proc~create proc~export_xc nurbs_surface%export_Xc program~example_plate_hole_2_2d->proc~export_xc proc~export_xg nurbs_surface%export_Xg program~example_plate_hole_2_2d->proc~export_xg proc~export_xth_in_xg nurbs_surface%export_Xth_in_Xg program~example_plate_hole_2_2d->proc~export_xth_in_xg proc~set_xc_wc set_Xc_Wc program~example_plate_hole_2_2d->proc~set_xc_wc proc~show nurbs_surface%show program~example_plate_hole_2_2d->proc~show proc~set1 nurbs_surface%set1 none~set->proc~set1 proc~set2 nurbs_surface%set2 none~set->proc~set2 proc~set3 nurbs_surface%set3 none~set->proc~set3 proc~set4 nurbs_surface%set4 none~set->proc~set4 interface~compute_xg compute_Xg proc~create->interface~compute_xg interface~ndgrid ndgrid proc~create->interface~ndgrid proc~is_rational nurbs_surface%is_rational proc~create->proc~is_rational set set proc~create->set proc~cmp_elem_xc_vis nurbs_surface%cmp_elem_Xc_vis proc~export_xc->proc~cmp_elem_xc_vis proc~export_vtk_legacy export_vtk_legacy proc~export_xc->proc~export_vtk_legacy proc~export_xc->set proc~cmp_elem_xg_vis nurbs_surface%cmp_elem_Xg_vis proc~export_xg->proc~cmp_elem_xg_vis proc~export_xg->proc~export_vtk_legacy proc~export_xg->set proc~export_xth_in_xg->interface~compute_xg interface~unique unique proc~export_xth_in_xg->interface~unique proc~export_xth_in_xg->proc~export_vtk_legacy proc~export_xth_in_xg->proc~is_rational proc~export_xth_in_xg->set cosd cosd proc~set_xc_wc->cosd tand tand proc~set_xc_wc->tand proc~compute_xg_bspline_2d compute_Xg_bspline_2d interface~compute_xg->proc~compute_xg_bspline_2d proc~compute_xg_bspline_2d_1point compute_Xg_bspline_2d_1point interface~compute_xg->proc~compute_xg_bspline_2d_1point proc~compute_xg_nurbs_2d compute_Xg_nurbs_2d interface~compute_xg->proc~compute_xg_nurbs_2d proc~compute_xg_nurbs_2d_1point compute_Xg_nurbs_2d_1point interface~compute_xg->proc~compute_xg_nurbs_2d_1point proc~ndgrid2 ndgrid2 interface~ndgrid->proc~ndgrid2 proc~ndgrid3 ndgrid3 interface~ndgrid->proc~ndgrid3 proc~unique_integer unique_integer interface~unique->proc~unique_integer proc~unique_real unique_real interface~unique->proc~unique_real interface~elemconn_c0 elemConn_C0 proc~cmp_elem_xc_vis->interface~elemconn_c0 proc~cmp_elem_xg_vis->interface~elemconn_c0 proc~set1->set proc~cmp_degree nurbs_surface%cmp_degree proc~set1->proc~cmp_degree proc~cmp_nc nurbs_surface%cmp_nc proc~set1->proc~cmp_nc proc~set2->set proc~set2->proc~cmp_nc proc~compute_knot_vector compute_knot_vector proc~set2->proc~compute_knot_vector proc~set3->set proc~set3->proc~cmp_degree proc~set4->set proc~cmp_elemconn_c0_l cmp_elemConn_C0_L interface~elemconn_c0->proc~cmp_elemconn_c0_l proc~cmp_elemconn_c0_s cmp_elemConn_C0_S interface~elemconn_c0->proc~cmp_elemconn_c0_s proc~cmp_elemconn_c0_v cmp_elemConn_C0_V interface~elemconn_c0->proc~cmp_elemconn_c0_v proc~cmp_degree->set proc~get_multiplicity nurbs_surface%get_multiplicity proc~cmp_degree->proc~get_multiplicity proc~cmp_nc->set interface~compute_multiplicity compute_multiplicity proc~cmp_nc->interface~compute_multiplicity proc~repelem repelem proc~compute_knot_vector->proc~repelem interface~kron kron proc~compute_xg_bspline_2d->interface~kron proc~basis_bspline basis_bspline proc~compute_xg_bspline_2d->proc~basis_bspline proc~compute_xg_bspline_2d_1point->interface~kron proc~compute_xg_bspline_2d_1point->proc~basis_bspline proc~cmp_tgc_2d cmp_Tgc_2d proc~compute_xg_nurbs_2d->proc~cmp_tgc_2d proc~compute_xg_nurbs_2d_1point->interface~kron proc~compute_xg_nurbs_2d_1point->proc~basis_bspline proc~compute_multiplicity1 compute_multiplicity1 interface~compute_multiplicity->proc~compute_multiplicity1 proc~compute_multiplicity2 compute_multiplicity2 interface~compute_multiplicity->proc~compute_multiplicity2 proc~kron3 kron3 interface~kron->proc~kron3 proc~kron_t1_t1 kron_t1_t1 interface~kron->proc~kron_t1_t1 proc~kron_t1_t2 kron_t1_t2 interface~kron->proc~kron_t1_t2 proc~cmp_tgc_2d->interface~kron proc~cmp_tgc_2d->proc~basis_bspline proc~get_multiplicity->interface~compute_multiplicity

Variables

Type Attributes Name Initial
real(kind=rk), allocatable :: Wc(:)
real(kind=rk), allocatable :: Xc(:,:)
real(kind=rk), parameter :: height = 5.0_rk
real(kind=rk), parameter :: length = 5.0_rk
type(nurbs_surface) :: plate_hole
real(kind=rk), parameter :: radius1 = 2.5_rk
real(kind=rk), parameter :: radius2 = 3.5_rk

Subroutines

pure subroutine set_Xc_Wc(tp, params, X_c, W_c)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: tp
real(kind=rk), intent(in), contiguous :: params(:)
real(kind=rk), intent(out), allocatable :: X_c(:,:)
real(kind=rk), intent(out), allocatable :: W_c(:)