set_ring Subroutine

private pure subroutine set_ring(this, center, radius1, radius2, length)

Type Bound

nurbs_volume

Arguments

Type IntentOptional Attributes Name
class(nurbs_volume), intent(inout) :: this
real(kind=rk), intent(in), contiguous :: center(:)
real(kind=rk), intent(in) :: radius1
real(kind=rk), intent(in) :: radius2
real(kind=rk), intent(in) :: length

Calls

proc~~set_ring~2~~CallsGraph proc~set_ring~2 nurbs_volume%set_ring none~set~2 nurbs_volume%set proc~set_ring~2->none~set~2 proc~set1~2 nurbs_volume%set1 none~set~2->proc~set1~2 proc~set2~2 nurbs_volume%set2 none~set~2->proc~set2~2 proc~set3~2 nurbs_volume%set3 none~set~2->proc~set3~2 proc~set4~2 nurbs_volume%set4 none~set~2->proc~set4~2 proc~cmp_degree~2 nurbs_volume%cmp_degree proc~set1~2->proc~cmp_degree~2 proc~cmp_nc~2 nurbs_volume%cmp_nc proc~set1~2->proc~cmp_nc~2 set set proc~set1~2->set proc~set2~2->proc~cmp_nc~2 proc~compute_knot_vector compute_knot_vector proc~set2~2->proc~compute_knot_vector proc~set2~2->set proc~set3~2->proc~cmp_degree~2 proc~set3~2->set proc~set4~2->set proc~cmp_degree~2->set proc~get_multiplicity~2 nurbs_volume%get_multiplicity proc~cmp_degree~2->proc~get_multiplicity~2 proc~cmp_nc~2->set interface~compute_multiplicity compute_multiplicity proc~cmp_nc~2->interface~compute_multiplicity proc~repelem repelem proc~compute_knot_vector->proc~repelem proc~compute_multiplicity1 compute_multiplicity1 interface~compute_multiplicity->proc~compute_multiplicity1 proc~compute_multiplicity2 compute_multiplicity2 interface~compute_multiplicity->proc~compute_multiplicity2 proc~get_multiplicity~2->interface~compute_multiplicity

Called by

proc~~set_ring~2~~CalledByGraph proc~set_ring~2 nurbs_volume%set_ring program~example_bend_pipe example_bend_pipe program~example_bend_pipe->proc~set_ring~2 program~example_helix_pipe example_helix_pipe program~example_helix_pipe->proc~set_ring~2 program~example_toroidal_pipe example_toroidal_pipe program~example_toroidal_pipe->proc~set_ring~2 program~shape_ring_3d shape_ring_3d program~shape_ring_3d->proc~set_ring~2 program~test_nurbs_volume test_nurbs_volume program~test_nurbs_volume->proc~set_ring~2