set1 Subroutine

private pure subroutine set1(this, knot, Xc, Wc)

Set knot vector, control points and weights for the NURBS curve object.

Type Bound

nurbs_curve

Arguments

Type IntentOptional Attributes Name
class(nurbs_curve), intent(inout) :: this
real(kind=rk), intent(in), contiguous :: knot(:)
real(kind=rk), intent(in), contiguous :: Xc(:,:)
real(kind=rk), intent(in), optional, contiguous :: Wc(:)

Calls

proc~~set1~~CallsGraph proc~set1 nurbs_curve%set1 proc~cmp_degree nurbs_curve%cmp_degree proc~set1->proc~cmp_degree proc~get_multiplicity nurbs_curve%get_multiplicity proc~cmp_degree->proc~get_multiplicity interface~compute_multiplicity compute_multiplicity proc~get_multiplicity->interface~compute_multiplicity proc~compute_multiplicity1 compute_multiplicity1 interface~compute_multiplicity->proc~compute_multiplicity1 proc~compute_multiplicity2 compute_multiplicity2 interface~compute_multiplicity->proc~compute_multiplicity2

Called by

proc~~set1~~CalledByGraph proc~set1 nurbs_curve%set1 none~set nurbs_curve%set none~set->proc~set1 proc~ansatz nurbs_curve%ansatz proc~ansatz->none~set proc~elevate_degree nurbs_curve%elevate_degree proc~elevate_degree->none~set proc~export_xth nurbs_curve%export_Xth proc~export_xth->none~set proc~insert_knots nurbs_curve%insert_knots proc~insert_knots->none~set proc~modify_wc nurbs_curve%modify_Wc proc~modify_wc->none~set proc~modify_xc nurbs_curve%modify_Xc proc~modify_xc->none~set proc~remove_knots nurbs_curve%remove_knots proc~remove_knots->none~set proc~set_c nurbs_curve%set_C proc~set_c->none~set proc~set_circle nurbs_curve%set_circle proc~set_circle->none~set proc~set_half_circle nurbs_curve%set_half_circle proc~set_half_circle->none~set program~compute_length compute_length program~compute_length->none~set proc~cmp_length nurbs_curve%cmp_length program~compute_length->proc~cmp_length program~example1_curve example1_curve program~example1_curve->none~set program~example1_curve->proc~elevate_degree program~example1_curve->proc~export_xth program~example1_curve->proc~insert_knots program~example1_curve->proc~remove_knots program~example_nurbs_curve example_nurbs_curve program~example_nurbs_curve->none~set program~fdm_test_curve fdm_test_curve program~fdm_test_curve->none~set program~nearest_point_1d nearest_point_1d program~nearest_point_1d->none~set program~test_nurbs_curve test_nurbs_curve program~test_nurbs_curve->none~set program~test_nurbs_curve->proc~elevate_degree program~test_nurbs_curve->proc~export_xth program~test_nurbs_curve->proc~insert_knots program~test_nurbs_curve->proc~modify_wc program~test_nurbs_curve->proc~modify_xc program~test_nurbs_curve->proc~remove_knots program~test_nurbs_curve->proc~set_c program~test_nurbs_curve->proc~set_circle program~test_nurbs_curve->proc~set_half_circle program~test_nurbs_curve->proc~cmp_length proc~cmp_length->proc~ansatz program~shape_c_1d shape_C_1d program~shape_c_1d->proc~set_c program~shape_circle shape_circle program~shape_circle->proc~set_circle program~shape_half_circle shape_half_circle program~shape_half_circle->proc~set_half_circle