compute_Xg Interface

private interface compute_Xg

Called by

interface~~compute_xg~3~~CalledByGraph interface~compute_xg~3 compute_Xg proc~cmp_xg~3 nurbs_surface%cmp_Xg proc~cmp_xg~3->interface~compute_xg~3 proc~create~3 nurbs_surface%create proc~create~3->interface~compute_xg~3 proc~nearest_point2~3 nurbs_surface%nearest_point2 proc~nearest_point2~3->proc~cmp_xg~3 proc~nearest_point2~3->proc~create~3 program~example3_surface example3_surface program~example3_surface->proc~create~3 program~example_nurbs_surface example_nurbs_surface program~example_nurbs_surface->proc~create~3 program~example_ppm1 example_ppm1 program~example_ppm1->proc~create~3 program~example_ppm2 example_ppm2 program~example_ppm2->proc~create~3 program~example_ppm3 example_ppm3 program~example_ppm3->proc~create~3 program~nearest_point_2d nearest_point_2d program~nearest_point_2d->proc~create~3 program~nearest_point_2d->proc~nearest_point2~3 program~nearest_point_2d_bench nearest_point_2d_bench program~nearest_point_2d_bench->proc~create~3 program~shape_c_2d shape_C_2d program~shape_c_2d->proc~create~3 program~shape_half_ring_2d shape_half_ring_2d program~shape_half_ring_2d->proc~create~3 program~shape_ring_2d shape_ring_2d program~shape_ring_2d->proc~create~3 program~shape_tetragon shape_tetragon program~shape_tetragon->proc~create~3

Functions

private pure function compute_Xg_bspline_2d(f_Xt, f_knot1, f_knot2, 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_knot1(:)
real(kind=rk), intent(in), contiguous :: f_knot2(:)
integer, intent(in) :: f_degree(2)
integer, intent(in) :: f_nc(2)
integer, intent(in) :: f_ng(2)
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)

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

private pure function compute_Xg_bspline_2d_1point(f_Xt, f_knot1, f_knot2, f_degree, f_nc, 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_knot1(:)
real(kind=rk), intent(in), contiguous :: f_knot2(:)
integer, intent(in) :: f_degree(2)
integer, intent(in) :: f_nc(2)
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)

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

private pure function compute_Xg_nurbs_2d(f_Xt, f_knot1, f_knot2, 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_knot1(:)
real(kind=rk), intent(in), contiguous :: f_knot2(:)
integer, intent(in) :: f_degree(2)
integer, intent(in) :: f_nc(2)
integer, intent(in) :: f_ng(2)
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_2d_1point(f_Xt, f_knot1, f_knot2, f_degree, f_nc, 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_knot1(:)
real(kind=rk), intent(in), contiguous :: f_knot2(:)
integer, intent(in) :: f_degree(2)
integer, intent(in) :: f_nc(2)
real(kind=rk), intent(in), contiguous :: f_Xc(:,:)
real(kind=rk), intent(in), contiguous :: f_Wc(:)

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