fBase_eval Function

private function fBase_eval(sf, deriv, x) result(base_x)

evaluate all modes at specific given point in theta and zeta

Type Bound

t_fBase

Arguments

Type IntentOptional Attributes Name
class(t_fBase), intent(in) :: sf

self
integer, intent(in) :: deriv

=0: base, =2: dthet , =3: dzeta
real(kind=wp), intent(in) :: x(2)

theta,zeta point position

Return Value real(kind=wp), (sf%modes)


Calls

proc~~fbase_eval~~CallsGraph proc~fbase_eval t_fBase%fBase_eval proc~fbase_eval_xn t_fBase%fBase_eval_xn proc~fbase_eval->proc~fbase_eval_xn

Called by

proc~~fbase_eval~~CalledByGraph proc~fbase_eval t_fBase%fBase_eval proc~fbase_evaldof_x t_fBase%fBase_evalDOF_x proc~fbase_evaldof_x->proc~fbase_eval proc~get_booz_newton_dfr t_newton_Root2D_boozer%get_booz_newton_dFR proc~get_booz_newton_dfr->proc~fbase_eval proc~get_booz_newton_fr t_newton_Root2D_boozer%get_booz_newton_FR proc~get_booz_newton_fr->proc~fbase_eval proc~hmap_axisnb_eval_tnb_hat t_hmap_axisNB%hmap_axisNB_eval_TNB_hat proc~hmap_axisnb_eval_tnb_hat->proc~fbase_eval proc~transform_angles_sinterp Transform_Angles_sinterp proc~transform_angles_sinterp->proc~fbase_eval proc~base_evaldof_x t_base%base_evalDOF_x proc~base_evaldof_x->proc~fbase_evaldof_x proc~buildtransform_sfl t_transform_sfl%BuildTransform_SFL proc~buildtransform_sfl->proc~transform_angles_sinterp proc~checkfieldperiodicity CheckFieldPeriodicity proc~checkfieldperiodicity->proc~hmap_axisnb_eval_tnb_hat proc~evaluate_base_list_stz_all evaluate_base_list_stz_all proc~evaluate_base_list_stz_all->proc~fbase_evaldof_x proc~fbase_test fBase_test proc~fbase_test->proc~fbase_evaldof_x proc~get_field Get_Field proc~get_field->proc~fbase_evaldof_x proc~gvec_to_jorek_prepare gvec_to_jorek_prepare proc~gvec_to_jorek_prepare->proc~fbase_evaldof_x proc~gvec_to_jorek_prepare->proc~get_field proc~hmap_axisnb_eval t_hmap_axisNB%hmap_axisNB_eval proc~hmap_axisnb_eval->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_eval_dxdq t_hmap_axisNB%hmap_axisNB_eval_dxdq proc~hmap_axisnb_eval_dxdq->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_eval_gij t_hmap_axisNB%hmap_axisNB_eval_gij proc~hmap_axisnb_eval_gij->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_eval_gij_dq t_hmap_axisNB%hmap_axisNB_eval_gij_dq proc~hmap_axisnb_eval_gij_dq->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_eval_jh t_hmap_axisNB%hmap_axisNB_eval_Jh proc~hmap_axisnb_eval_jh->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_eval_jh_dq t_hmap_axisNB%hmap_axisNB_eval_Jh_dq proc~hmap_axisnb_eval_jh_dq->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_get_ddx_dqij t_hmap_axisNB%hmap_axisNB_get_ddx_dqij proc~hmap_axisnb_get_ddx_dqij->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_get_dx_dqi t_hmap_axisNB%hmap_axisNB_get_dx_dqi proc~hmap_axisnb_get_dx_dqi->proc~hmap_axisnb_eval_tnb_hat proc~hmap_axisnb_init_aux hmap_axisNB_init_aux proc~hmap_axisnb_init_aux->proc~hmap_axisnb_eval_tnb_hat proc~pest_newton_frdfr t_newton_Root1D_FdF_pest%pest_newton_FRdFR proc~pest_newton_frdfr->proc~fbase_evaldof_x proc~visu_axisnb Visu_axisNB proc~visu_axisnb->proc~hmap_axisnb_eval_tnb_hat interface~t_hmap_axisnb_auxvar t_hmap_axisNB_auxvar interface~t_hmap_axisnb_auxvar->proc~hmap_axisnb_init_aux proc~fbase_init t_fBase%fBase_init proc~fbase_init->proc~fbase_test proc~hmap_axisnb_init_params hmap_axisNB_init_params proc~hmap_axisnb_init_params->proc~checkfieldperiodicity proc~hmap_axisnb_init_params->proc~visu_axisnb proc~hmap_axisnb_test hmap_axisNB_test proc~hmap_axisnb_init_params->proc~hmap_axisnb_test proc~hmap_axisnb_test->proc~hmap_axisnb_eval proc~hmap_axisnb_test->proc~hmap_axisnb_eval_dxdq proc~hmap_axisnb_test->proc~hmap_axisnb_eval_gij proc~hmap_axisnb_test->proc~hmap_axisnb_eval_gij_dq proc~hmap_axisnb_test->proc~hmap_axisnb_eval_jh proc~hmap_axisnb_test->proc~hmap_axisnb_eval_jh_dq proc~hmap_axisnb_test->proc~hmap_axisnb_get_ddx_dqij proc~hmap_axisnb_test->proc~hmap_axisnb_get_dx_dqi proc~hmap_axisnb_test->proc~hmap_axisnb_init_aux interface~t_hmap_axisnb t_hmap_axisNB interface~t_hmap_axisnb->proc~hmap_axisnb_init_params proc~hmap_axisnb_init hmap_axisNB_init interface~t_hmap_axisnb->proc~hmap_axisnb_init proc~fbase_copy t_fBase%fBase_copy proc~fbase_copy->proc~fbase_init proc~fbase_new fBase_new proc~fbase_new->proc~fbase_init proc~hmap_axisnb_init->proc~hmap_axisnb_init_params interface~t_fbase t_fBase interface~t_fbase->proc~fbase_new

Source Code

FUNCTION fBase_eval(sf,deriv,x) RESULT(base_x)
  ! MODULES
  IMPLICIT NONE
  ! INPUT VARIABLES -------------------------!
  CLASS(t_fBase), INTENT(IN   ) :: sf     !! self
  INTEGER       , INTENT(IN   ) :: deriv  !! =0: base, =2: dthet , =3: dzeta
  REAL(wp)      , INTENT(IN   ) :: x(2)   !! theta,zeta point position
  ! OUTPUT VARIABLES -------------------------!
  REAL(wp)                      :: base_x(sf%modes)
  ! CODE --------------------------------------------------------------------------------------------------------------------------!
base_x =  RESHAPE(sf%eval_xn(deriv,1,x),(/sf%modes/))
END FUNCTION fbase_eval