lsq_fit_bspline_1d Program

Uses

  • program~~lsq_fit_bspline_1d~~UsesGraph program~lsq_fit_bspline_1d lsq_fit_bspline_1d module~forcad forcad program~lsq_fit_bspline_1d->module~forcad module~forcad_utils forcad_utils program~lsq_fit_bspline_1d->module~forcad_utils 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_utils->module~forcad_kinds module~forcad_nurbs_curve->module~forcad_utils module~forcad_nurbs_curve->module~forcad_kinds fordebug fordebug module~forcad_nurbs_curve->fordebug module~forcad_nurbs_surface->module~forcad_utils module~forcad_nurbs_surface->module~forcad_kinds module~forcad_nurbs_surface->fordebug module~forcad_nurbs_volume->module~forcad_utils module~forcad_nurbs_volume->module~forcad_kinds module~forcad_nurbs_volume->fordebug

Calls

program~~lsq_fit_bspline_1d~~CallsGraph program~lsq_fit_bspline_1d lsq_fit_bspline_1d none~get_knot~3 nurbs_curve%get_knot program~lsq_fit_bspline_1d->none~get_knot~3 none~get_xg~3 nurbs_curve%get_Xg program~lsq_fit_bspline_1d->none~get_xg~3 none~set~3 nurbs_curve%set program~lsq_fit_bspline_1d->none~set~3 proc~create~3 nurbs_curve%create program~lsq_fit_bspline_1d->proc~create~3 proc~export_xc~3 nurbs_curve%export_Xc program~lsq_fit_bspline_1d->proc~export_xc~3 proc~export_xg~3 nurbs_curve%export_Xg program~lsq_fit_bspline_1d->proc~export_xg~3 proc~get_continuity~3 nurbs_curve%get_continuity program~lsq_fit_bspline_1d->proc~get_continuity~3 proc~get_degree nurbs_curve%get_degree program~lsq_fit_bspline_1d->proc~get_degree proc~get_nc nurbs_curve%get_nc program~lsq_fit_bspline_1d->proc~get_nc proc~lsq_fit_bspline~3 nurbs_curve%lsq_fit_bspline program~lsq_fit_bspline_1d->proc~lsq_fit_bspline~3 proc~show~3 nurbs_curve%show program~lsq_fit_bspline_1d->proc~show~3 proc~get_knot_all~3 nurbs_curve%get_knot_all none~get_knot~3->proc~get_knot_all~3 proc~get_knoti~3 nurbs_curve%get_knoti none~get_knot~3->proc~get_knoti~3 proc~get_xg_all~3 nurbs_curve%get_Xg_all none~get_xg~3->proc~get_xg_all~3 proc~get_xgid~3 nurbs_curve%get_Xgid none~get_xg~3->proc~get_xgid~3 proc~get_xgi~3 nurbs_curve%get_Xgi none~get_xg~3->proc~get_xgi~3 proc~set1a nurbs_curve%set1a none~set~3->proc~set1a proc~set1~3 nurbs_curve%set1 none~set~3->proc~set1~3 proc~set2~3 nurbs_curve%set2 none~set~3->proc~set2~3 proc~set3~3 nurbs_curve%set3 none~set~3->proc~set3~3 proc~set4~3 nurbs_curve%set4 none~set~3->proc~set4~3 interface~compute_xg~3 compute_Xg proc~create~3->interface~compute_xg~3 proc~is_rational~3 nurbs_curve%is_rational proc~create~3->proc~is_rational~3 set set proc~create~3->set proc~cmp_elem_xc_vis~3 nurbs_curve%cmp_elem_Xc_vis proc~export_xc~3->proc~cmp_elem_xc_vis~3 proc~export_vtk_legacy export_vtk_legacy proc~export_xc~3->proc~export_vtk_legacy proc~export_xc~3->set proc~cmp_elem_xg_vis~3 nurbs_curve%cmp_elem_Xg_vis proc~export_xg~3->proc~cmp_elem_xg_vis~3 proc~export_xg~3->proc~export_vtk_legacy proc~export_xg~3->set interface~compute_multiplicity compute_multiplicity proc~get_continuity~3->interface~compute_multiplicity proc~basis_bspline basis_bspline proc~lsq_fit_bspline~3->proc~basis_bspline proc~solve solve proc~lsq_fit_bspline~3->proc~solve proc~lsq_fit_bspline~3->set proc~compute_multiplicity1 compute_multiplicity1 interface~compute_multiplicity->proc~compute_multiplicity1 proc~compute_multiplicity2 compute_multiplicity2 interface~compute_multiplicity->proc~compute_multiplicity2 proc~compute_xg_bspline_1d compute_Xg_bspline_1d interface~compute_xg~3->proc~compute_xg_bspline_1d proc~compute_xg_bspline_1d_1point compute_Xg_bspline_1d_1point interface~compute_xg~3->proc~compute_xg_bspline_1d_1point proc~compute_xg_nurbs_1d compute_Xg_nurbs_1d interface~compute_xg~3->proc~compute_xg_nurbs_1d proc~compute_xg_nurbs_1d_1point compute_Xg_nurbs_1d_1point interface~compute_xg~3->proc~compute_xg_nurbs_1d_1point interface~elemconn_c0 elemConn_C0 proc~cmp_elem_xc_vis~3->interface~elemconn_c0 proc~cmp_elem_xg_vis~3->interface~elemconn_c0 proc~set1a->set proc~cmp_degree~3 nurbs_curve%cmp_degree proc~set1a->proc~cmp_degree~3 proc~set1~3->set proc~set1~3->proc~cmp_degree~3 proc~set2~3->set proc~cmp_nc~3 nurbs_curve%cmp_nc proc~set2~3->proc~cmp_nc~3 proc~compute_knot_vector compute_knot_vector proc~set2~3->proc~compute_knot_vector proc~set3~3->set proc~set3~3->proc~cmp_degree~3 proc~set4~3->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~get_multiplicity~3 nurbs_curve%get_multiplicity proc~cmp_degree~3->proc~get_multiplicity~3 proc~cmp_nc~3->interface~compute_multiplicity proc~repelem repelem proc~compute_knot_vector->proc~repelem proc~compute_xg_bspline_1d->proc~basis_bspline proc~compute_xg_bspline_1d_1point->proc~basis_bspline proc~cmp_tgc_1d cmp_Tgc_1d proc~compute_xg_nurbs_1d->proc~cmp_tgc_1d proc~compute_xg_nurbs_1d_1point->proc~basis_bspline proc~cmp_tgc_1d->proc~basis_bspline proc~get_multiplicity~3->interface~compute_multiplicity

Variables

Type Attributes Name Initial
real(kind=rk), allocatable :: Xdata(:,:)
real(kind=rk), allocatable :: Xg_eval(:,:)
real(kind=rk), allocatable :: Xt(:)
type(nurbs_curve) :: bsp
real(kind=rk) :: err1
real(kind=rk) :: err2
real(kind=rk) :: err3
integer :: i
integer :: n
integer :: ndata
real(kind=rk), parameter :: pi = acos(-1.0_rk)
real(kind=rk) :: rms