compute_Xg Interface

private interface compute_Xg

Called by

interface~~compute_xg~2~~CalledByGraph interface~compute_xg~2 compute_Xg proc~cmp_xg~2 nurbs_curve%cmp_Xg proc~cmp_xg~2->interface~compute_xg~2 proc~create~2 nurbs_curve%create proc~create~2->interface~compute_xg~2 proc~nearest_point2~2 nurbs_curve%nearest_point2 proc~nearest_point2~2->proc~cmp_xg~2 proc~nearest_point2~2->proc~create~2 program~example1_curve example1_curve program~example1_curve->proc~create~2 program~example_nurbs_curve example_nurbs_curve program~example_nurbs_curve->proc~create~2 program~nearest_point_1d nearest_point_1d program~nearest_point_1d->proc~create~2 program~nearest_point_1d->proc~nearest_point2~2 program~shape_c_1d shape_C_1d program~shape_c_1d->proc~create~2 program~shape_circle shape_circle program~shape_circle->proc~create~2 program~shape_half_circle shape_half_circle program~shape_half_circle->proc~create~2

Functions

private pure function compute_Xg_bspline_1d(f_Xt, f_knot, f_degree, f_nc, f_ng, f_Xc) result(f_Xg)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), contiguous :: f_Xt(:)
real(kind=rk), intent(in), contiguous :: f_knot(:)
integer, intent(in) :: f_degree
integer, intent(in) :: f_nc
integer, intent(in) :: f_ng
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)

Return Value real(kind=rk), allocatable, (:,:)

private pure function compute_Xg_bspline_1d_1point(f_Xt, f_knot, f_degree, f_nc, f_Xc) result(f_Xg)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: f_Xt
real(kind=rk), intent(in), contiguous :: f_knot(:)
integer, intent(in) :: f_degree
integer, intent(in) :: f_nc
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)

Return Value real(kind=rk), allocatable, (:)

private pure function compute_Xg_nurbs_1d(f_Xt, f_knot, f_degree, f_nc, f_ng, f_Xc, f_Wc) result(f_Xg)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), contiguous :: f_Xt(:)
real(kind=rk), intent(in), contiguous :: f_knot(:)
integer, intent(in) :: f_degree
integer, intent(in) :: f_nc
integer, intent(in) :: f_ng
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)
real(kind=rk), intent(in), contiguous :: f_Wc(:)

Return Value real(kind=rk), allocatable, (:,:)

private pure function compute_Xg_nurbs_1d_1point(f_Xt, f_knot, f_degree, f_nc, f_Xc, f_Wc) result(f_Xg)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: f_Xt
real(kind=rk), intent(in), contiguous :: f_knot(:)
integer, intent(in) :: f_degree
integer, intent(in) :: f_nc
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)
real(kind=rk), intent(in), contiguous :: f_Wc(:)

Return Value real(kind=rk), allocatable, (:)