sll_m_bsplines_uniform Module


Uses

  • module~~sll_m_bsplines_uniform~~UsesGraph module~sll_m_bsplines_uniform sll_m_bsplines_uniform module~sll_m_bsplines_base sll_m_bsplines_base module~sll_m_bsplines_uniform->module~sll_m_bsplines_base module~sll_m_working_precision sll_m_working_precision module~sll_m_bsplines_uniform->module~sll_m_working_precision module~sll_m_bsplines_base->module~sll_m_working_precision

Used by

  • module~~sll_m_bsplines_uniform~~UsedByGraph module~sll_m_bsplines_uniform sll_m_bsplines_uniform module~sll_m_bsplines sll_m_bsplines module~sll_m_bsplines->module~sll_m_bsplines_uniform module~modgvec_cubic_spline MODgvec_cubic_spline module~modgvec_cubic_spline->module~sll_m_bsplines module~modgvec_rprofile_bspl MODgvec_rProfile_bspl module~modgvec_rprofile_bspl->module~sll_m_bsplines module~modgvec_sbase MODgvec_sBase module~modgvec_sbase->module~sll_m_bsplines proc~cubspl_new cubspl_new proc~cubspl_new->module~sll_m_bsplines proc~interpolate_cubic_spline interpolate_cubic_spline proc~interpolate_cubic_spline->module~sll_m_bsplines proc~sbase_init t_sBase%sBase_init proc~sbase_init->module~sll_m_bsplines module~modgvec_base MODgvec_base module~modgvec_base->module~modgvec_sbase module~modgvec_readstate_vars MODgvec_ReadState_Vars module~modgvec_readstate_vars->module~modgvec_sbase module~modgvec_readstate_vars->module~modgvec_base module~modgvec_vmec MODgvec_VMEC module~modgvec_vmec->module~modgvec_cubic_spline module~modgvec_vmec_vars MODgvec_VMEC_Vars module~modgvec_vmec_vars->module~modgvec_cubic_spline proc~initprofile InitProfile proc~initprofile->module~modgvec_cubic_spline proc~initprofile->module~modgvec_rprofile_bspl proc~initvmec InitVMEC proc~initvmec->module~modgvec_cubic_spline proc~initvmec->module~modgvec_rprofile_bspl proc~initvmec->module~modgvec_vmec_vars proc~readstatefilefromascii ReadStateFileFromASCII proc~readstatefilefromascii->module~modgvec_sbase proc~readstatefilefromascii->module~modgvec_base proc~readstatefilefromascii->module~modgvec_readstate_vars proc~vmec1d_visu VMEC1D_visu proc~vmec1d_visu->module~modgvec_cubic_spline proc~vmec1d_visu->module~modgvec_vmec proc~vmec1d_visu->module~modgvec_vmec_vars module~modgvec_gvec_to_jorek_vars MODgvec_gvec_to_jorek_Vars module~modgvec_gvec_to_jorek_vars->module~modgvec_base module~modgvec_mhd3d_vars MODgvec_MHD3D_Vars module~modgvec_mhd3d_vars->module~modgvec_base module~modgvec_py_state MODgvec_py_state module~modgvec_py_state->module~modgvec_base module~modgvec_transform_sfl MODgvec_Transform_SFL module~modgvec_transform_sfl->module~modgvec_base proc~applyprecond ApplyPrecond proc~applyprecond->module~modgvec_base proc~buildtransform_sfl t_transform_sfl%BuildTransform_SFL proc~buildtransform_sfl->module~modgvec_base proc~eval_prof_r eval_prof_r proc~eval_prof_r->module~modgvec_readstate_vars proc~evaluate_base_list_stz_all evaluate_base_list_stz_all proc~evaluate_base_list_stz_all->module~modgvec_base proc~evaluate_base_list_tz evaluate_base_list_tz proc~evaluate_base_list_tz->module~modgvec_base proc~evaluate_base_list_tz_all evaluate_base_list_tz_all proc~evaluate_base_list_tz_all->module~modgvec_base proc~evaluate_base_select evaluate_base_select proc~evaluate_base_select->module~modgvec_base proc~evaluate_base_tens evaluate_base_tens proc~evaluate_base_tens->module~modgvec_base proc~evaluate_base_tens_all evaluate_base_tens_all proc~evaluate_base_tens_all->module~modgvec_base proc~finalize_readstate Finalize_ReadState proc~finalize_readstate->module~modgvec_readstate_vars proc~finalizemhd3d t_functional_mhd3d%FinalizeMHD3D proc~finalizemhd3d->module~modgvec_vmec proc~finalizemhd3d->module~modgvec_mhd3d_vars proc~finalizevmec FinalizeVMEC proc~finalizevmec->module~modgvec_vmec_vars proc~fitspline FitSpline proc~fitspline->module~modgvec_vmec_vars proc~fitsplinehalf FitSplineHalf proc~fitsplinehalf->module~modgvec_vmec_vars proc~get_boozer get_boozer proc~get_boozer->module~modgvec_base proc~get_boozer->module~modgvec_mhd3d_vars proc~get_boozer_sinterp t_sfl_boozer%Get_Boozer_sinterp proc~get_boozer_sinterp->module~modgvec_base proc~get_field Get_Field proc~get_field->module~modgvec_readstate_vars proc~get_field->module~modgvec_gvec_to_jorek_vars proc~get_integration_points get_integration_points proc~get_integration_points->module~modgvec_base proc~get_integration_points_num get_integration_points_num proc~get_integration_points_num->module~modgvec_base proc~gvec_to_jorek_prepare gvec_to_jorek_prepare proc~gvec_to_jorek_prepare->module~modgvec_base proc~gvec_to_jorek_prepare->module~modgvec_readstate_vars proc~gvec_to_jorek_prepare->module~modgvec_gvec_to_jorek_vars proc~init_base Init_Base proc~init_base->module~modgvec_base proc~init_base->module~modgvec_readstate_vars proc~init_base->module~modgvec_gvec_to_jorek_vars proc~init_gvec_to_jorek init_gvec_to_jorek proc~init_gvec_to_jorek->module~modgvec_readstate_vars proc~init_gvec_to_jorek->module~modgvec_gvec_to_jorek_vars proc~initmhd3d t_functional_mhd3d%InitMHD3D proc~initmhd3d->module~modgvec_base proc~initmhd3d->module~modgvec_vmec proc~initmhd3d->module~modgvec_vmec_vars proc~initmhd3d->module~modgvec_mhd3d_vars proc~initsolution InitSolution proc~initsolution->module~modgvec_vmec proc~initsolution->module~modgvec_vmec_vars proc~initsolution->module~modgvec_mhd3d_vars proc~lambda_solve Lambda_solve proc~lambda_solve->module~modgvec_base proc~readstate ReadState proc~readstate->module~modgvec_readstate_vars proc~readstate->module~modgvec_mhd3d_vars proc~restartfromstate RestartFromState proc~restartfromstate->module~modgvec_base proc~restartfromstate->module~modgvec_readstate_vars proc~restartfromstate->module~modgvec_mhd3d_vars proc~select_base select_base proc~select_base->module~modgvec_base proc~select_base->module~modgvec_mhd3d_vars proc~select_base_dofs select_base_dofs proc~select_base_dofs->module~modgvec_base proc~select_base_dofs->module~modgvec_mhd3d_vars proc~transform_angles_3d Transform_Angles_3d proc~transform_angles_3d->module~modgvec_base proc~transform_angles_sinterp Transform_Angles_sinterp proc~transform_angles_sinterp->module~modgvec_base proc~transform_sfl_init t_transform_sfl%transform_SFL_init proc~transform_sfl_init->module~modgvec_base proc~vmec3d_visu VMEC3D_visu proc~vmec3d_visu->module~modgvec_vmec_vars proc~vmec_evalsplmode VMEC_EvalSplMode proc~vmec_evalsplmode->module~modgvec_vmec_vars program~gvec_post GVEC_POST program~gvec_post->module~modgvec_readstate_vars program~gvec_post->module~modgvec_mhd3d_vars module~modgvec_gvec_to_castor3d_vars MODgvec_gvec_to_castor3d_Vars module~modgvec_gvec_to_castor3d_vars->module~modgvec_transform_sfl module~modgvec_gvec_to_gene_vars MODgvec_gvec_to_gene_Vars module~modgvec_gvec_to_gene_vars->module~modgvec_transform_sfl module~modgvec_gvec_to_hopr_vars MODgvec_gvec_to_hopr_vars module~modgvec_gvec_to_hopr_vars->module~modgvec_transform_sfl proc~addboundaryperturbation AddBoundaryPerturbation proc~addboundaryperturbation->module~modgvec_mhd3d_vars proc~analyze Analyze proc~analyze->module~modgvec_mhd3d_vars proc~applybc_fstrong ApplyBC_Fstrong proc~applybc_fstrong->module~modgvec_mhd3d_vars proc~buildprecond BuildPrecond proc~buildprecond->module~modgvec_mhd3d_vars proc~evalaux EvalAux proc~evalaux->module~modgvec_mhd3d_vars proc~evalenergy EvalEnergy proc~evalenergy->module~modgvec_mhd3d_vars proc~evalforce EvalForce proc~evalforce->module~modgvec_mhd3d_vars proc~evaluate_hmap evaluate_hmap proc~evaluate_hmap->module~modgvec_mhd3d_vars proc~evaluate_hmap_only evaluate_hmap_only proc~evaluate_hmap_only->module~modgvec_mhd3d_vars proc~evaluate_hmap_only_pw evaluate_hmap_only_pw proc~evaluate_hmap_only_pw->module~modgvec_mhd3d_vars proc~evaluate_hmap_pw evaluate_hmap_pw proc~evaluate_hmap_pw->module~modgvec_mhd3d_vars proc~evaluate_jac_h_derivs evaluate_jac_h_derivs proc~evaluate_jac_h_derivs->module~modgvec_mhd3d_vars proc~evaluate_jac_h_derivs_pw evaluate_jac_h_derivs_pw proc~evaluate_jac_h_derivs_pw->module~modgvec_mhd3d_vars proc~evaluate_metric_derivs evaluate_metric_derivs proc~evaluate_metric_derivs->module~modgvec_mhd3d_vars proc~evaluate_profile evaluate_profile proc~evaluate_profile->module~modgvec_mhd3d_vars proc~evaluate_rho2_profile evaluate_rho2_profile proc~evaluate_rho2_profile->module~modgvec_mhd3d_vars proc~finalize_gvec_to_jorek finalize_gvec_to_jorek proc~finalize_gvec_to_jorek->module~modgvec_gvec_to_jorek_vars proc~finalizemhd3d_evalfunc FinalizeMHD3D_EvalFunc proc~finalizemhd3d_evalfunc->module~modgvec_mhd3d_vars proc~get_cla_gvec_to_jorek get_CLA_gvec_to_jorek proc~get_cla_gvec_to_jorek->module~modgvec_gvec_to_jorek_vars proc~gvec_to_jorek_writetofile_ascii gvec_to_jorek_writeToFile_ASCII proc~gvec_to_jorek_writetofile_ascii->module~modgvec_gvec_to_jorek_vars proc~init Init proc~init->module~modgvec_mhd3d_vars proc~init_boozer init_boozer proc~init_boozer->module~modgvec_mhd3d_vars proc~init_la_from_solution Init_LA_from_Solution proc~init_la_from_solution->module~modgvec_mhd3d_vars proc~initaverageaxis InitAverageAxis proc~initaverageaxis->module~modgvec_mhd3d_vars proc~initializemhd3d_evalfunc InitializeMHD3D_evalFunc proc~initializemhd3d_evalfunc->module~modgvec_mhd3d_vars proc~initprofilesgp InitProfilesGP proc~initprofilesgp->module~modgvec_mhd3d_vars proc~initsolutionmhd3d t_functional_mhd3d%InitSolutionMHD3D proc~initsolutionmhd3d->module~modgvec_mhd3d_vars proc~minimizemhd3d t_functional_mhd3d%MinimizeMHD3D proc~minimizemhd3d->module~modgvec_mhd3d_vars proc~minimizemhd3d_descent MinimizeMHD3D_descent proc~minimizemhd3d_descent->module~modgvec_mhd3d_vars proc~rungvec rungvec proc~rungvec->module~modgvec_mhd3d_vars proc~writestatetoascii WriteStateToASCII proc~writestatetoascii->module~modgvec_mhd3d_vars

Variables

Type Visibility Attributes Name Initial
integer, private, parameter :: wp = f64

Working precision
integer, private :: index
real(kind=wp), private, parameter :: inv(1:32) = [(1.0_wp/real(index, wp), index=1, 32)]

Derived Types

type, public, extends(sll_c_bsplines) ::  sll_t_bsplines_uniform

Abstract type, B-splines

Components

Type Visibility Attributes Name Initial
integer, public :: degree
logical, public :: periodic
logical, public :: uniform
integer, public :: ncells
integer, public :: nbasis
integer, public :: offset
real(kind=wp), public :: xmin
real(kind=wp), public :: xmax
real(kind=wp), public, allocatable :: knots(:)
real(kind=wp), private :: inv_dx

Type-Bound Procedures

procedure, public :: init => s_bsplines_uniform__init
procedure, public :: free => s_bsplines_uniform__free
procedure, public :: find_cell => f_bsplines_uniform__find_cell
procedure, public :: eval_basis => s_bsplines_uniform__eval_basis
procedure, public :: eval_deriv => s_bsplines_uniform__eval_deriv
procedure, public :: eval_basis_and_n_derivs => s_bsplines_uniform__eval_basis_and_n_derivs

Functions

private pure function f_bsplines_uniform__find_cell(self, x) result(icell)

Find which grid cell contains the given point

Read more…

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(in) :: self

uniform B-splines
real(kind=wp), intent(in) :: x

point of interest

Return Value integer


Subroutines

private pure subroutine s_bsplines_uniform__get_icell_and_offset(self, x, icell, x_offset)

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(in) :: self
real(kind=wp), intent(in) :: x
integer, intent(out) :: icell
real(kind=wp), intent(out) :: x_offset

private subroutine s_bsplines_uniform__init(self, degree, periodic, xmin, xmax, ncells)

Initialize uniform B-splines object

Read more…

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(out) :: self

uniform B-splines
integer, intent(in) :: degree

spline degree
logical, intent(in) :: periodic

.true. if domain is periodic, .false. otherwise
real(kind=wp), intent(in) :: xmin

left boundary of x domain
real(kind=wp), intent(in) :: xmax

right boundary of x domain
integer, intent(in) :: ncells

number of grid cells in domain

private subroutine s_bsplines_uniform__free(self)

Free storage

Read more…

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(inout) :: self

uniform B-splines

private pure subroutine s_bsplines_uniform__eval_basis(self, x, values, jmin)

Evaluate value at x of all basis functions with support in local cell values[j] = B_j(x) for jmin <= j <= jmin+degree

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(in) :: self

uniform B-splines
real(kind=wp), intent(in) :: x

evaluation point
real(kind=wp), intent(out) :: values(0:)
integer, intent(out) :: jmin

index of first non-zero B-spline

private pure subroutine s_bsplines_uniform__eval_deriv(self, x, derivs, jmin)

Evaluate derivative at x of all basis functions with support in local cell derivs[j] = B_j'(x) for jmin <= j <= jmin+degree

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(in) :: self

uniform B-splines
real(kind=wp), intent(in) :: x

evaluation point
real(kind=wp), intent(out) :: derivs(0:)
integer, intent(out) :: jmin

index of first non-zero B-spline

private pure subroutine s_bsplines_uniform__eval_basis_and_n_derivs(self, x, n, derivs, jmin)

Evaluate value and n derivatives at x of all basis functions with support in local cell derivs[i,j] = (d/dx)^i B_j(x) for 0 <= i <= n and jmin <= j <= jmin+degree

Arguments

Type IntentOptional Attributes Name
class(sll_t_bsplines_uniform), intent(in) :: self

uniform B-splines
real(kind=wp), intent(in) :: x

evaluation point
integer, intent(in) :: n

number of required derivatives
real(kind=wp), intent(out) :: derivs(0:,0:)
integer, intent(out) :: jmin

index of first non-zero B-spline